### At the top:
my $output_file = 'test.txt'; ### Change if the file name changes

### the open is then:
open my $out, '>', $output_file or die "Can't open $output_file: $!";