I don't know whether this is exactly what you want, but it works for me under WinNT.
open(Z, ">ftpcom.txt") or die "open failed: $!";
print Z "username
password
dir 'GROMMEL.TSO.*'
bye";
close Z;
system("ftp -s:ftpcom.txt sch020");
system("del ftpcom.txt");
print "perl is finished\n";
