ftpの成否を判別する方法ありますか？

14 ：名無しさん＠お腹いっぱい。 ：2001/07/23(月) 21:30

#!perl
use Net::FTP;
use strict;

sub assert { die "$@\nitteyosi" if not $_[0]; }

my $conn;
assert($conn = Net::FTP->new("windows"));
assert($conn->login("nanasisan", "hiroyukimansee"));
assert($conn->put("logfile", time().".log"));
$conn->quit;

read.cgi ver5.26+ (01/10/21-)