use Net::FTP;

my $ftp = Net::FTP->new("128.1.141.29") or die "Cannot connect to 128.1.141.29";
$ftp->login("bogie", #0tB\@') or die $ftp->message;
my $dir = $ftp->pwd() or die $ftp->message;;
print $dir, "\n";
$ftp->get("err");
print $ftp, "\n";
$ftp->quit;