use POSIX 'strftime';

my $time = strftime("%r", localtime());

print $time,"\n";
[download]

Ooh! Ooh! Time for me to make fun of the Americans! Actually, tadman pointed out the funny part, but I shall simply point it out for all to see:

tadman: ...virtually a world standard. Like the metric system

What's so funny about this? Well if I recall correctly, the United States is one of the few (if not the only) country that still uses the imperial system! Update yourselves Americans and use the metric system! Heheh... I am prepared for the barrage of downvotes coming my way... one should never make fun of the out of date cool Americans!

Time for me to make fun of the Americans!

Um... mtk, last I checked Canada was in America. So is Mexico and the United States. If I'm not mistaken, you're from Canada. Oh well, we know what you mean. ;-)

Update yourselves Americans and use the metric system!

Well, we mesure soda pop bottles in liters: 3, 2, 1, .5. Our cars have KM rate measurements (as well as MPH). But, do you really think we can convert all measurements to metric? That'd be harder than change currency to the Euro.

#!/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";
[download]

Update: You didn't specify if the time was ahead or behind 2 hours. Just use time() + 60 * 60 * 2 if it's ahead.

Joshua

Rather than asking us to do this for you, please show us how you are currently attempting to do it, so we can show you how to improve & correct your code.

Date::Calc

CPAN is your friend; it's almost always best to look there before asking anywhere else.

--
The hell with paco, vote for Erudil!
:wq