my $perl = do "a.pl";