#!/usr/bin/perl -w

use strict;

# Курсы валют (предполагается, что все курсы,
#  которые могут встретиться в файле, в этом хэше есть)
my $roe = {
  frunk => 1,
  tugrik => 100,
  bobrik => 10,
};

# range2cidr 123.144.0.0 - 123.147.255.255
123.144.0.0/14
# range2cidr 123.144.0.0-123.147.255.255
123.144.0.0/14
#

# host2block 118.169.82.252
118.169.0.0/16
#

# perl -le 'sub a () { my $ret = "scalar A"; $ret->{'a'} = "hash A"; return $ret };
   print a (); print a ()->{'a'};'
scalar A
hash A

Q: Есть один вопрос :
Когда вас или вашу жену будут насиловать или убивать вы будете строить государство или крушить вражьи рыла ?

A: Я хочу, чтобы меня защищала милиция, а не парабеллум.

Q: Я правильно понимаю, что пока вас или вашу жену будут насиловать или убивать, вы будете ждать милицию и строить государство ?

A: Абсолютно правильно.

# perl -le 'print join "+",sub { @_[0..3],$_[4]+1,$_[5]+1900 }->(localtime)'
48+26+10+1+10+2008

00:31 <@****> Требуется Web-разработчик (программист). Бюджет: 50 руб.
00:52 <@********> за безумные деньги - только безумные разработчики