BEGIN { use Data::Dumper; $Data::Dumper::Useqq=1; open FOO, $0 or die "nope: $!"
; print Dumper $_ while <FOO>; exit }