Net::FTP

[Sara]

#!/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,

SARA.