Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $time = strftime('%I:%M:%S %p', localtime(time() - 60 * 60 * 2));
print "$time\n";