Select Code to Download

#!/usr/bin/perl

...
print $ftp->pwd ();
$ftp->quit;
print "And now an extra line.\n";