my $Debug=1;

unless ($ftp = Net::FTP->new($host,Debug=>$Debug)) {     
    die "No FTP for you!\n\n"; 
}