Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
use warnings;
...

say "Today is " . localtime;
say join "\n", $start, $end;
  2. or download this
    Today is Fri Mar 11 11:56:50 2011
Mon Jan 31 00:00:00 2011
Mon Feb 28 00:00:00 2011