Call perl script fom other perl script

$syscommand = "/root/dir_name/shell/fileName.pl";
print STDERR "Running fileName.pl\n";
$ret = system($syscommand);
if ($ret != 0){
print STDOUT "Error running fileName.pl\n";
exit(-1);
}