use Time::Piece;

my $time = localtime;
my $date = $time->strptime($time->strftime('%D').' 22:49:01','%D %T');

print $date, "\n";
print "$_\n" for $date->min, $date->sec, $date->hour;