{
 my $ftp = Net::FTP->new(...);
 print("Can't connect: $@\n"), last unless $ftp;
 my $status = $ftp->login(...);
 # use 'return' instead of 'last' if it
 # suits your purposes better
 print("failed to login:",$ftp->message), last unless $status;
 $status = $ftp->cwd(...);
 print("failed to chdir:",$ftp->message), last unless $status;
 ...
}