Tests for Embperl - request exit sub

Before Exit [- if ($param[0]) { exit (200) ; } else { exit ; } -] After Exit [+ "perl after exit" +]