Shell Programming and Scripting

#!/usr/bin/perl -w
use Net::FTP;
$ftp = Net::FTP->new("hostname");
$ftp->login('userid', 'password');
$ftp->cwd("/pub");
#$ftp->binary;
#my $files=$ftp->ls();

my @filenames=$ftp->ls();
foreach (@filenames)
{
  print "$_\n" ;
}

#!/usr/bin/perl -w
use Net::FTP;
my $host="hostname";
my $user="userid";
my $pw = "password";
my $path="/pub";
my $file="Filename ";
my $ftp = Net::FTP->new($host);

$ftp->login($user, $pw);
$ftp->cwd($path) , $ftp->message;
$ftp->binary;
print "FTP $file :  Size = [", $ftp->size($file), "] \n";
$ftp->quit();

print "FTP size = [", $ftp->size($_), "] \n";

Use of uninitialized value in print at ./ftpconnect2.pl line 17.
FTP size = []

$ftp->login($user, $pw);
# $ftp->cwd($path) , $ftp->message;
$ftp->binary;

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

foreach(@files)
{
        print $_, " ", $ftp->size($_), "\n";
}

$ftp->quit();

#!/usr/bin/perl -w
use Net::FTP;
$ftp = Net::FTP->new("Hostname");
$ftp->login('username', 'password');
$ftp->cwd("<PATH>");
$ftp->binary;

my @filenames=$ftp->ls();
foreach (@filenames)
{
#  print "$_\n" ;
 print $_, " File Size: ", $ftp->size($_), "\n";
}
$ftp->quit();

ls -l |wc -l

 ?

my @arr=("a","b","c");
print $#arr + 1, "\n";