Select Code to Download

print $sh->ls("-l ./logs/ |grep -v "^d" |grep -v file1 | awk 'NR>1 { p
+rint \$9}'

{
    my $dir = './logs';
...
    print "$_\n" for @files;
}
__END__