Select Code to Download

#!/usr/bin/perl
use Net::FTP;
...
        next unless ($file =~ m/\.gz$/);
print $file;
if( -e $file)