Select Code to Download

my $t = localtime;

use strict;
use warnings;
...
my $u = Time::Piece->strptime($str, $pattern);

print "Time is:\n", $u->strftime($pattern), "\n";

Error parsing time at d:/berrybrew/5.30.1_32/perl/lib/Time/Piece.pm li
+ne 597.