Maybe not really related to your question, but a hint:

Even in a short test script you should check if open was successful. Especially when writing to a file.

my $output_file = 'hoser.txt';

# using three argument form and die if there's an error
open my $fh, '>', $output_file   or die "$output_file: open(w) failed:
+ $!";
my @file_info = stat $fh;        or die "$output_file: stat failed: $!
+";
close $fh                        or die "$output_file: close(w) failed
+: $!";
[download]