#!/usr/bin/perl

use strict;
use warnings;

use Net::FTP;

my $ftp = Net::FTP->new ('ftp.perl.org');
$ftp->login ('anonymous');
print $ftp->pwd ();
$ftp->quit;
print "And now an extra line.\n";