#!/usr/bin/perl
@files = ($file1,$file2,$file3);
print "Enter $rem_host login name\n";
$rem_user = <STDIN>; chop $rem_user;
print "Enter password\n";
$rem_passwd = <STDIN>; chop $rem_passwd;
$rem_host = machinename;
$log = "log \n";
$command =<<eod;
foreach $file (@files) {
ftp->mput($file); } # ?? (where do i put this)
ftp $rem_host << eof > $log;
user $rem_user
password $rem_passwd
bye
eof
eod