#!/usr/bin/perl
use strict;
use warnings;
use Time::Local;

print scalar localtime( epoch( '2005-03-28 12:00:00' ) );
sub epoch {
    my $stamp = shift;
    my($yr, $mon, $day, $hr, $min, $sec) = split /[ :-]/, $stamp;
    --$mon;
    return timelocal($sec, $min, $hr, $day, $mon, $yr);
}