open $prog, '|ftp name des servers';
sleep 2;
print $prog 'nutzer name';