#!/usr/bin/perl -w

use strict;
use Net::FTP;

my ($host, $user, $pass, $localfs, $remotefs)=( 'your_host', 'ur_username', 'ur_passwd', 'dir_holding_files' 'dir_2_upload_files);
chdir("$localfs") or die "can not change directory /homes($!)";;
my @ftp_files=glob("*");
$ftp = Net::FTP->new("$host", Debug => 0 ) or warn "Cannot connect to $host: $@";
$ftp->login("$user","$pass") or warn "Cannot login ", $ftp->message;
$ftp->binary();
$ftp->cwd("$remotefs");
for (@ftp_files) { $ftp->put("$_") };
$ftp->quit;

#! /usr/bin/ksh

stty -echo
print -n Enter Password-
read PASS
print 
stty echo
exec 4>&1

HOST=xxx.yyy.com
USER=name
DESTDIR=junk
SOURCEDIR=~/tmp

cd $SOURCEDIR

ftp -nv >&4 2>&4 |&
print -p open $HOST
print -p user $USER $PASS
print -p cd $DESTDIR

ls | while read filename ; do
        [[ -f $filename ]] && print -p put $filename
done
print -p close
print -p bye
wait
exit 0