# untested
sub stamp2epoch {
    my $stamp = shift @_;
    my ($yr, $mon, $day, $hr, $min, $sec) = split /[ :-]+/, $stamp;
    --$mon;
    return timelocal($sec, $min, $hr, $day, $mon, $yr);
}