my $ftp = Net::FTP->new("tgftp.nws.noaa.gov", DEBUG => 1);