my $dmy_fmt = DateTime::Format::Strptime->new
   (
       pattern   => '%d/%m/%Y %I:%M:%S %p',
       time_zone => 'Australia/Victoria',
       on_error  => 'croak',    # <-- ADD THIS
   );