#!/usr/bin/perl
use Net::FTP;
use Net::FTP::File;

my $directory = '/tmp/bkp';
opendir (DIR, $directory) or die $!;
        while (my $file = readdir(DIR)) {
        next unless ($file =~ m/\.gz$/);
print $file;
if( -e $file)