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