#!/usr/bin/perl --

use strict;
use warnings;

use Time::Piece;

my $t = localtime;
print $t, "\n", $t->strftime("%a %b %d %H:%M:%S %Y"),"\n";
print $t->strftime('%H'),"\n";
print $t->strftime('%M'),"\n";
__END__
Wed Jan 26 23:57:47 2011
Wed Jan 26 23:57:47 2011
23
57