sub header
{
        my $text;
        my $output = "output.txt";
        open(OUTPUT, ">$output") or die "Cant open File: $!\n";
        ($text = <<HERE_TARGET) =~ s/^\s+//gm;

        Mein Text

HERE_TARGET

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