Select Code to Download

my @files = <$dir/*>;
foreach my $file (@files)

#!/usr/bin/perl

use strict;
...
{
print $file, "\n";
}