Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
use POSIX qw(strftime);

my $date = strftime("%-m/%e/%Y", localtime);
  2. or download this
    my $date = strftime("%m/%e/%Y",localtime);