Select Code to Download

#!/usr/bin/perl -w

my $host = "192.168.10.155";
...
$ftp->get($getname,$file_name) or die "can't get file";

$ftp->quit();

Net::FTP: Net::FTP(2.64)
Net::FTP:   Exporter(5.562)
Net::FTP:   Net::Cmd(2.21)
...
Net::FTP=GLOB(0x819dea4)>>> RETR WWWMSEXP.TXT
Net::FTP=GLOB(0x819dea4)<<< 150 Opening ASCII mode data connection for
+ WWWMSEXP.TXT(3180636 bytes).
can't get file at ./mtest.pl line 18.