open OUT, $out || die "Can't open $out!\n";
[download]

Using the high precedence || operator means that the dies are superfluous. You should use the low precedence or operator instead. .

Or, use parentheses if one wants to use '||' ...

open( OUT, $out ) || die "Can't open $out: $!\n";
[download]