Select Code to Download

The 'year' parameter (undef) to DateTime::new was an 'undef', which is
+ not one of the allowed types: scalar
 at /usr/local/lib/perl/5.10.1/DateTime.pm line 200
    DateTime::new(undef, 'year', undef, 'month', 1, 'day', 1, 'hour', 
+1, ...) called at smsDone line 60

$file_name = "sms.vmg";
tie my @array, 'Tie::File', $file_name or die("Unable to open file \"$
+file_name\": $!\n");
...

$epoch_time  = $dt->epoch * 1000;
print "\nEpoch Time: ".$epoch_time;