#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;

if ( @ARGV )
{
  my $string = join(' ', @ARGV);
  print UnixDate($string, "%s\n");
}
else
{
  print "usage: perl ctime_to_epoch.pl Sat Apr 14 02:20:59 2007\n";
}