use Carp;
....
my $ftp = Net::FTP->new("XXX.XX.XX.XXX", Debug => 1, Port => 21, => Timeout => 300) or 
  croak "Cannot connect to host: $@";