Help for this page

Select Code to Download


  1. or download this
    my $date = localtime;
    my @fields = split /\s+/, $date;
    my $year = pop @fields;
    my $month = $fields[1];
    my $day = $fields[2];