sub header
{
        my $output = @_ ;
        open(OUTPUT, ">$output") or die "Cant open File: $!\n";

        my $text <<"END_TEXT";
        Mein Text
END_TEXT

print OUTPUT "$text";
close(OUTPUT);
}