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

my $original_time = '04/18/00 11:10 AM';
my ($mon, $mday, $year, $hours, $min, $mer) = split(/ |\/|:/, $original_time);

$hours += 12 if ($mer eq 'PM');

if ($year < 50) {
	$year += 2000;
} else {
	$year += 1900;
}

my $unix_time = timelocal(0, $min, $hours, $mday, $mon - 1, $year);
my $normal_time = localtime($unix_time);

print "$unix_time == $normal_time\n";