Select Code to Download

#!/usr/bin/perl

...
foreach (@files) {
    print $_ . "\n";
}

foreach (readdir($dh)) {
   my $filesize = -s $_;
   print $_ . " " . $filesize . "\n";
}