use Net::FTP;
$ftp = Net::FTP->new("www.somedomain.org");
check_net_err($ftp);
$ftp->login("user","password");
check_net_err($ftp);
$ftp->cwd("/pages");
check_net_err($ftp);
$ftp->get("defhome.htm");
check_net_err($ftp);
$ftp->quit;


sub check_net_err{
  my $net=shift;
  if(!defined $net){
    die "Net:: object not defined $!";
  }else{
    if((!$net->ok())||($net->code() >= 400)){
      die "Net:: error ".$net->code()." : ".$net->message();
    }
  }
}

##</code><code>##

my $ftp = Net::FTP->new("www.somedomain.org",Debug=>1);