my $ftp = Net::FTP->new( "$G_FTP_SITE" ) or die "Can't connect: $@";