my $res = qx{perl prog2.pl};