Select Code to Download

$ftp->get("$station_name.TXT", "../area/weather/$station_name.TXT") 
   or die "failed to retrieve file $station_name.TXT - $ftp->message";

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

#!/usr/bin/perl
use strict;
...
$ftp->quit;
# End ftp session #