Changed perl system call to system()