#!/usr/bin/perl -w
#create ftp info file

open(file, ">upload.txt");
print file "open xxxx.dyndns.org"\n";
print file "benutzername\n";
print file "passwort\n";
print file "binary\n";
print file "prompt\n";
print file "cd /pfad/\n";
print file "mget $filename.tar.gz\n";
print file "quit\n";
close(file);