#!/usr/bin/perl -w

use strict;
use warnings;
use CGI::Carp 'fatalsToBrowser';
use CGI qw/:standard/;
use Net::FTP;



my $ftp = Net::FTP->new("ftp.yourserver.com", Debug => 0)
or die "Cannot connect to some.host.name: $@";

$ftp->login("username",'password')
or die "Cannot login ", $ftp->message;

$ftp->cwd("/")
or die "Cannot change working directory ", $ftp->message;

my @Directory = $ftp->dir("/path/to/directory");
print "@Directory";

$ftp->quit;


I am using the following to login to remote FTP;
and its working fine and I am getting the list of files from remote FTP from my desired directory but;

- The script is working fine in my Window IDE and giving an Internal Server Error (without any error message) while on my Host.

- its returning @Directory in long format
"-rw-r--r-- 1 username username 8654 Jul 5 18:20 test.html"
Is it possible to get file names only like test.html


and how to provide $Directory in the script given below because above is an array context @Directory?

because after getting the list of files from the directory above I want to match/compare the file names with a text list on my server, see below.....

###################################
$my Directory = ".";

if ( open( NO, 'data.txt' ) )
{
while ( <NO> )
{
chomp;
# Optional: Add check for blank/incomplete lines.

if ( -f "$Directory/$_" )
{
print "File '$_' exists in '$Directory'.\n";
# Optional: Add file to 'exists' list for later reporting.
}
else
{
print "File '$_' does NOT exist in '$Directory'.\n";
# Optional: Add file to 'not exists' list for later reporting.
}
}
close( NO );
}
else
{
print "ERROR: Unable to open file: $!\n";
}



Thanks,