Convert localtime to unix timestamp

toutc.pl

#!/usr/bin/perl                                                                                                                                                                      
#Format of ip Month/Year/DateThour:minute:seconds                                                                                                                                    
use Time::Local;
my ($date,$time) = split 'T' , $ARGV[$1];
#print $date."\n".$time."\n";                                                                                                                                                        
my ($month, $day, $year) = split '/', $date;
$month = $month - 1; #this is because timelocal wants the month to be zero indexed                                                                                                   
#print $month."\n";                                                                                                                                                                  
my ($hr, $min, $secs) = split ':',  $time;
my $utctime = timelocal($secs,$min,$hr,$day,$month,$year);
print $utctime."\n"