What were you expecting someone to pick up that isn't already abley handled by the first example in the pod? I include it here for your reference. You'll note that it authenticates, changes directory, fetches a file and then exits. The only addition you appear to have made was to add some obnoxious script kiddy garbage. Please explain yourself. You've just set an example of poor behaviour.

    use Net::FTP;

    $ftp = Net::FTP->new("some.host.name", Debug => 0)
      or die "Cannot connect to some.host.name: $@";

    $ftp->login("anonymous",'-anonymous@')
      or die "Cannot login ", $ftp->message;

    $ftp->cwd("/pub")
      or die "Cannot change working directory ", $ftp->message;

    $ftp->get("that.file")
      or die "get failed ", $ftp->message;

    $ftp->quit;
[download]