#in first_prog.pl
#do something wrong 
exit 1;

##</code><code>##

 
$result = system "perl first_prog.pl"
print $result;
#I get 256