Help for this page
my $sourcepackage = caller; eval "package $sourcepackage; $code"; print "Error in eval: $@" if $@ ne '';
------------ :Wq Not an editor command: Wq