Bad file descriptor is weird... can you verify that the variable being passed into the constructor represents a valid host...i.e. print the variable and ping the host to make sure it's reachable from the machine. Also, try:

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

instead to get a more accurate error message.