Shell Programming and Scripting

#!/usr/bin/perl

use strict;
use warnings;
use Net::FTP;
use Net::Netrc;
my $server="remote.ip.address";
my $pageid = "none";
my $pager = "/usr/local/bin/pager";
my $ftpid = "username";
my $pass = "password";
my $remote_cwd = "/srcds_l/cstrike/bin";
#my @files = ls("/srcds_l/cstrike/bin");
my $local_cwd  = "/home/my11969/www/test";

my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3) or
    die (exec "$pager $pageid \"$server: ftp cannot connect: $@\"") ;

$ftp->login("$ftpid","$pass") or
    die (exec "$pager $pageid \"ftp cannot login.\"") ;

$ftp->ascii or
    die (exec "$pager $pageid \"ftp failed binary mode.\"") ;

## get multile files if they exist.

$ftp->cwd($remote_cwd) or die "Can't cd to '$remote_cwd'\n";

#chdir $local_cwd or die "Can't cd to '$local_cwd'\n";

my @files = $ftp->ls($remote_cwd);

for (@files) {
    $ftp->get("$_","$local_cwd/$_") if -f $_;
}

$ftp->quit;

Net::FTP>>> Net::FTP(2.77)
Net::FTP>>>   Exporter(5.58)
Net::FTP>>>   Net::Cmd(2.29)
Net::FTP>>>   IO::Socket::INET(1.29)
Net::FTP>>>     IO::Socket(1.29)
Net::FTP>>>       IO::Handle(1.25)

Net::FTP=GLOB(0x88e7118)<<< 220 (vsFTPd 2.0.5)
Net::FTP=GLOB(0x88e7118)>>> USER ******
Net::FTP=GLOB(0x88e7118)<<< 331 Please specify the password.
Net::FTP=GLOB(0x88e7118)>>> PASS ....
Net::FTP=GLOB(0x88e7118)<<< 230 Login successful.
Net::FTP=GLOB(0x88e7118)>>> TYPE A
Net::FTP=GLOB(0x88e7118)<<< 200 Switching to ASCII mode.
Net::FTP=GLOB(0x88e7118)>>> CWD /srcds_l/cstrike/bin
Net::FTP=GLOB(0x88e7118)<<< 250 Directory successfully changed.
Net::FTP=GLOB(0x88e7118)>>> PASV
Net::FTP=GLOB(0x88e7118)<<< 227 Entering Passive Mode (85,234,148,14,104,92)
Net::FTP=GLOB(0x88e7118)>>> NLST /srcds_l/cstrike/bin
Net::FTP=GLOB(0x88e7118)<<< 150 Here comes the directory listing.
Net::FTP=GLOB(0x88e7118)<<< 226 Directory send OK.
Net::FTP=GLOB(0x88e7118)>>> QUIT
Net::FTP=GLOB(0x88e7118)<<< 221 Goodbye.