Select Code to Download

#! /usr/bin/perl
use strict;
use warnings;
...

my $nsec = chop($sec);
my $mtime = timegm($sec, $min, $hour, $mday, $mon, $year);