print qx ("perl script.pl");