run system command in perl