Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
my %colleague=   ("quality"     =>      "perl skill",
...
$today=$day."/".++$month if ($day, $month)=(localtime time)[3,4];
$mila="will be my friend" while $mila->{"birthday"} eq $today;
print $mila." just today\n"

Select or download this
```
will be my friend just today
```