fuck! 2時間くらいハマった

localtime.pl

use strict;
use warnings;
use 5.010;

use Time::Piece;

say "echo";
say localtime();

sub heysaydump {
    use Data::Dumper;
    say Dumper @_;
}

say "direct";
heysaydump(localtime());

say "var";
my $t = localtime();
heysaydump($t);

say "TP new direct";
heysaydump(Time::Piece->new());

say "TP localtime direct";
heysaydump(Time::Piece->localtime());

__END__
echo
1754016411341350
direct
$VAR1 = 17;
$VAR2 = 54;
$VAR3 = 0;
$VAR4 = 16;
$VAR5 = 4;
$VAR6 = '113';
$VAR7 = 4;
$VAR8 = 135;
$VAR9 = 0;

var
$VAR1 = bless( [
                 17,
                 54,
                 0,
                 16,
                 4,
                 '113',
                 4,
                 135,
                 0,
                 1368633257,
                 1
               ], 'Time::Piece' );

TP new direct
$VAR1 = bless( [
                 17,
                 54,
                 0,
                 16,
                 4,
                 '113',
                 4,
                 135,
                 0,
                 1368633257,
                 1
               ], 'Time::Piece' );

TP localtime direct
$VAR1 = 17;
$VAR2 = 54;
$VAR3 = 0;
$VAR4 = 16;
$VAR5 = 4;
$VAR6 = '113';
$VAR7 = 4;
$VAR8 = 135;
$VAR9 = 0;