perl -MTime::Piece=localtime -E '
    my %stuff = (
        otherinfo => "this and that",
        dateinfo  => scalar localtime
    );
    say "sec=",  $stuff{dateinfo}->sec,
        "year=", $stuff{dateinfo}->year
'
[download]