eval "my \$$bar;" if $workAround BEGIN; #### my $code= ; eval "my \$$bar;\n#line 1 "file"\n$code"; die $@ if $@;