#!/usr/bin/perl

use strict;
use warnings;

use DateTime::Format::Strptime;

my $date_parser = DateTime::Format::Strptime->new(pattern => '%D');

while (<DATA>) {
  print $date_parser->parse_datetime($_)->epoch, "\n";
} 

__DATA__
06/06/2009
01/30/2009