Select Code to Download

my @files = ();

find(sub { $File::Find::name =~ m/${directory}(.*)$/; push @files, $1}
+,  $directory);
@files = grep { is_dos_format("$directory/$_") } @files;

foreach my $file (@files) {
    print "FAILED FILE - $file\n";
}

        if ($_ =~ m/\r\n/) {

#!/usr/bin/perl

...
       } }, $directory;

__END__