Select Code to Download

#! perl -sw
use strict;
...
        $hash2{'time'} = $now;
}

#! perl -sw
use strict;
...
        my $now = scalar localtime;
        return time => $now;
}