Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
print header(), start_html(-title => "");        
        print "the big ball falls at $time => $string\n";
print end_html();
  2. or download this
    my $time = timelocal($sec,$min,$hhour,$day,$month,$year);
  3. or download this
    my $time = timelocal($sec,$min,$hhour,$day,$month-1,$year-=1900);
  4. or download this
    #!/usr/bin/perl -w
use strict;
...
print header(), start_html(-title => "");        
        print "the big ball falls at $time => $string\n";
print end_html();