Select Code to Download

$file !~ m/^[\w-]+(\.[\w-]+)*$/

cns061206

sub zip {
    (my $cmd, my $dir) = @_[0,1];
...
    }
}

foreach my $file (glob($dir . '/*')) {

foreach my $file (glob($dir . '/*.gz'))

my @list = glob($dir . '/*');
foreach my $file (@list) {

my @list = glob($dir . '/*.gz');
foreach my $file (@list) {