open(OUTPUT, ">output.tst") or die "Cant open File: $!\n";

        while (<DATA>)
        {
                print OUTPUT;
        }


close(OUTPUT);


__DATA__
Mein Text