Add diagnostics to the script:

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $fh = \*STDOUT;
$fh->print("Hello, World\n");
[download]

See perlobj for more info.

Update: removed begin block---not useful here:)