system("perl -w script.pl");
die();