# if they want FTP stuff, then transfer it to the FTP site...
if ($remote_ftp) {

print "\n\nFTP'ing to $url...\n\n";

use Net::FTP;
my $_ftp = Net::FTP->new($url, Debug => 1) or &error("Cant FTP. Reason: $!");
$_ftp->login("$user","$pass");
if ($cwd_to) {
$_ftp->cwd($cwd_to);
}
if ($dateorname eq "name") {
$_ftp->put("mysqlbackup.sql.gz");
} else {
$_ftp->put("$date.sql.gz");
}
$_ftp->quit or &error("FTP Upload failed!");
}

use Net::FTP;

open (FOO, "<bar.txt") or warn $!;

Net::FTP->new("foo.perlmad.com") or warn $!;

print "hello";

use Net::FTP;

open (FOO, "<bar.txt") or warn $!;

Net::FTP->new("foo.perlmad.com") or warn $@;

print "hello";

perl -le 'print getprotobyname("tcp")'

memphis% perl -le 'print getprotobyname("tcp")'
tcpTCP6
memphis%