Select Code to Download

my $target_dir = "/backups/test/";
opendir my $dh, $target_dir or die "can't opendir $target_dir: $!";
...
    }
    print "$file\n";
}

use strict;
use Digest::MD5 qw(md5_hex);
...
}
#print $data;
close (NEWFILE);