my $a;
eval();
eval($a)
