#/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";


##</code><code>##

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


C:\WINDOWS\Profiles\Gregory\Desktop\LLPSV>