eval "my $ARGV[0];"   BEGIN;