Help for this page

Select Code to Download


  1. or download this
    ($year, $month, $day) = Today();     # Line 7
  2. or download this
    # Start block 0
use strict;
...
print $foo;  # successful

# End of file $foo stops existing here.
  3. or download this
    my @friends = ("Simon", "Howard", "Jane", "Jacinta");
print $freind[3];
  4. or download this
    ($year, $month, $day) = Today();     # Line 7
$Dd = -1;
  5. or download this
    my ($year, $month, $day) = Today();     # Line 7
my $Dd = -1;