use warnings;
use strict;
my @head = '<reportparameters name="hostname">localhost</reportparameters>';
open my $OUT_FH, '>', 'out.txt' or die "can not open out.txt: $!\n";
print $OUT_FH  "@head\n";
close $OUT_FH;

##</code><code>##

<reportparameters name="hostname">localhost</reportparameters>