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