#!/usr/bin/perl
use strict;
use warnings;

my $output_file = 'upload.txt';

my $filename = 'irgendwas';


#create ftp info file

open( my $outfh, '>', $output_file ) or die "open($output_file,w) failed: $!\n";

print $outfh <<"OUTPUT";
open xxxx.dyndns.org
benutzername
passwort
binary
prompt
cd /pfad/
mget $filename.tar.gz
quit
OUTPUT

close( $outfh) or die "close($outfh) failed: $!\n";;