#!/usr/bin/perl -w
use strict;
use POSIX qw|strftime|;

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