use Date::Manip

my $format = "%m/%d/%y %H:%M:%S";
my $start = &UnixDate(&ParseDate("today"), $format);