Select Code to Download

opendir ( my $dir, "/mnt/data/Programming")
   or die "Can't open directory: $!\n";
my @files = readdir( $dir );
closedir( $dir );

foreach my $file ( grep { -f "$path/$_" } @files )
{
...
        # process each line here.
    }
}