Gladly. The output was

C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>perl rpasafe.pl


C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>
[download]

This took a minute or so.
Here's the whole of the script I just ran (it's the pertinent bits from the rest of the script, separated to determine the problem)

#/usr/bin/perl -w
use strict;
use warnings;

###########################################################
#
# rpasafe.pl -- robot propagator attempt
#
###########################################################

use Net::FTP;

my $host = 'ftp.ftpserver.com';
my $u = 'user';
my $p = 'pass';

my $ftp;

unless ($ftp = Net::FTP->new($host)) {
    die "No FTP for you!\n\n";
}

$ftp->login($u, $p);
$ftp->binary;

my @lines = $ftp->dir('//');
print join("\n", @lines), "\n";
[download]

-----------------------
You are what you think.