#!/usr/bin/perl

use Net::FTP;

my $host="...";
my $user="...";
my $pass="...";

$ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;

  push @ERRORS, "Can't ftp to $host\n" if $newerr;

  myerr() if $newerr;

$ftp->login($user, $pass) or $newerr=1;

  push @ERRORS, "Can't login to $host\n" if $newerr;

  $ftp->quit if $newerr;

  myerr() if $newerr;

  print "UP:Connection up with $user to $host\n";

$ftp->quit;


sub myerr {

  print "DOWN:";

  print @ERRORS;

  exit 0;

}