Thanks for your input. I'm fairly new to perl so i'm not really familiar w/ opendir. Once you get the opendir and readdir, how would you use a string so you can write a $ftp>put statement? thanks,

The same as in your code (though you don't need the quotes, and ftp error messages are in the message() method, not $!):

$ftp->put($name) or warn "Could not put $name, skipped: ".$ftp->messag
+e();
[download]

Note that readdir returns the file name without the path, so before putting you will have to either chdir to the directory, or prefix the directory name onto the string you pass to put().

#!/usr/bin/perl
use Net::FTP;
use File::Listing qw(parse_dir);
$host = 'ServerName';
$path = '/home/';
$ftp = Net::FTP->new($host, Timeout => 1800) or die "Cannot contact $h
+ost: $!";
$ftp->login('ID', 'PWD') or die "Cannot login ($host):" . $ftp->messag
+e;
$ftp->cwd($path) or die "Cannot change directory ($host):" . $ftp->mes
+sage;
#@Files = $ftp->ls('-lR');
@Files = 'ls -l';
#@Files = `ls -l $path' if $path is what you want a listing of 
#$ftp->binary();
#$ftp->ascii();
foreach $file (parse_dir(\@Files))
{
my($name, $type, $size, $mtime, $mode) = @$file;
$ftp->put("$name") or warn "Could not get $name, skipped: $!";
}
$ftp->quit;
exit;
[download]

The script seems to run fine but the files are not transferred over to the remote server. It's suppose to do a ls -l then grab the files, parse and ftp. thanks
#!/usr/bin/perl
use Net::FTP;
use File::Listing qw(parse_dir);
$host = 'hostname';
#$path = 'path/';
$ftp = Net::FTP->new($host, Timeout => 1800) or die "Cannot contact $host: $!";
$ftp->login('ID', 'pwd') or die "Cannot login ($host):" . $ftp->message;
#$ftp->cwd($path) or die "Cannot change directory ($host):" . $ftp->message;
#Files = `dir *.txt`;
#$ftp->binary();
#$ftp->ascii();
@Files= `ls -lR`;
foreach $file (parse_dir($Files))
{
my($name, $type, $size, $mtime, $mode) = @$file;
$ftp->get ($name) or warn "Could not get $name, skipped: $!";
}
$ftp->quit;
exit;

You are get()'ing the files...I thought you wanted to put()?

I'm pretty sure that there is no method named '!ls'. I would bet though that there is a method named 'lls', short for 'local ls'.

UPDATE: Checked Net::FTP and there is no lls. With "manual" you probably meant a manual page of ftp and not the manual page of Net::FTP. That is not the same.

UPDATE OF THE UPDATE: ++Fletch for the I-should-have-known-but-did-not explanation

More likely he's confused Net::FTP with the manual for the command line ftp client which like many *NIX utilities supports running shell commands by prefixing them with a !.

The cake is a lie.
The cake is a lie.
The cake is a lie.

#!/usr/bin/perl

use strict;
use warnings; 
use Net::FTP::File;

use constant HOST   => 'ftp.cpan.org';
use constant DIR    => '/pub/CPAN';
use constant FILE   => 'README';

my $ftp = Net::FTP->new(
    HOST,
    Timeout => 1,
    Debug   => 1,
    Passive => 1) or die "Cannot contact HOST: $@\n";
$ftp->login('anonymous');
$ftp->cwd(DIR);
$ftp->binary;
print $ftp->ls('-lR');
$ftp->quit;
[download]

Does this help?