#!/usr/local/bin/perl

use Net::FTP;

$remote_host='x.x.x.x';
$userid='user';
$pword='password';
$remote_cwd='/export/home/user/tmp';
$local_dir='/tmp';

## char to be parsed out, to tell if file or directory
my $chr1='/';

chdir "$local_dir";
$ftp=Net::FTP->new($remote_host) or die($!);
print $ftp->message(), "\n";
$ftp->login($userid,$pword);
print $ftp->message(), "\n";
$ftp->binary();
print $ftp->message(), "\n";

$ftp->cwd("$remote_cwd");
print $ftp->message(), "\n";

@myfiles=$ftp->ls('-p');

# xxxxxxx parse the / out

my $e;
foreach $e (@myfiles) {
  if ($e !~ /\/\Z/) {

#   if (-f $e) {
#    print "$e\n";
  
   $ftp->get("$e");
    print $ftp->message(), "\n";
   }

} 

$ftp->close;