system ('adrl.exe', $file) || die ("not correct path");