Select Code to Download

Global symbol "$VAR1" requires explicit package name at (eval 1) line 
+1, <$in> line 1.

my $h = eval 'my ' . do { local $/; <$in> };