Select Code to Download

#!/usr/bin/perl

...

say $t->ymd; # Prints as normal
say $t->strftime($ymd); # Segmentation fault

sub formatTime {
    my ($date, $in_format, $out_format) = @_;
    $t = Time::Piece->strptime($date,$in_format);
    return $t->strftime($out_format);
}