#!/usr/bin/perl
print "Content-type:text/html\n\n";
use File::Copy;
$remotehost1 ="a";
$remotepath ="/b";
$remoteuser ="c";
$remotepass ="d";
@fileftp = qw(x.wml y.wml z.wml);
$cmd="ftp -n";
foreach $wmlfile (@fileftp)
{
if(-f $wmlfile)
{
$ftp_commands =
" open $remotehost1
user $remoteuser $remotepass
cd $remotepath
asc
put $wmlfile
bye
";
open (CMD, "|$cmd");
print CMD $ftp_commands;
close (CMD);
print "File $wmlfile has been transferred \n";
print "
\n";
$finish = 'transfer';
copy ("$wmlfile","./$finish/$wmlfile");
}
}