Select Code to Download

#!/usr/bin/perl -w
use strict; 
...
$x = 'AM';
}
print "$mday/$mon/$year $hour:$min:$sec $x\n";