#!/usr/bin/perl

use Date::Manip qw(UnixDate);

my $time_new = 'Tue Feb 13 19:04:04 IST 2007';

my $time = UnixDate($time_new, "%s");

print "secs since the Epoch: $time\n";  # prints 1171373644