#!/usr/bin/perl

##</code><code>##

my @ret = `\usr\bin\perl ./runthis.pl`;
if ($?) {
   die "Error running \[runthis.pl] : $!";
}