Select Code to Download

$fh = do {local *FH};
open ($fh, $filename)

use strict;
use warnings;
...

output with "#bad" included:
Can't call method "input_line_number" without a package or object refe
+rence at test line 10.