#!usr/bin/perl
# Script writen by Us0R
###
open (file "test.txt") or die "Fehler!\n";
    while (<file>)
        {
        $inhalt .= $_;
        }
close (file);
###
open (file1 ">test1.txt") or die "Fehler!\n";
    print WRITE $Inhalt;
close (file1);
###