Select Code to Download

#!/usr/bin/perl

...
use Getopt::Std;
use POSIX qw(strftime);
use Time::ParseDate;

$when = strftime( '%m%d%y', localtime $dt );

perl -c script.pl
perl -MO=Lint script.pl
perl -MO=Deparse script.pl
perltidy script.pl

#!/usr/bin/perl
...
    $when = strftime( '%m%d%y', localtime $dt );
    chomp $when;
}