my ($datetime) = @_;
    my ($date, $time) = split / /, $datetime;