if (system(qq~ touch "$mount_server_check_path/mount_check"; ~)){ ...