Select Code to Download

use strict;
use warnings;
use POSIX qw(strftime);
my ($m, $y) = strftime ("%b %Y", localtime) =~ m|(\S+)\s(\S+)|;
print "$m $y";

#!/usr/bin/perl
use strict;
use warnings;
...
}
closedir $dh;