#!/usr/bin/perl -w

use strict;
use Net::FTP;

$ftp = Net::FTP->new("foo.bar.com", Debug => 1)
             or die "Cannot connect to foo.bar.com: $@";

...