Select Code to Download

13:35 >perl -MO=Deparse 1848_SoPW.pl
use File::Glob ();
...
1848_SoPW.pl syntax OK

13:35 >

my @dirs = qw( dir1 dir2 );   # add more as required
@ARGV = ();
push @ARGV, <./1848_SoPW/$_/*\.log> for @dirs;

my @dirs = qw( dir1 dir2 );
@ARGV = map { <./1848_SoPW/$_/*\.log> } @dirs;

use strict;
use warnings;
...
        ...
    }
}