这个 script 的设计不好，如果档案不存在，无穷循环有可能卡死。
建议要设计合理的 timeout 机制，范例如下：
#!/usr/bin/env perl
my $timer = 30; # timeout after 30 min
while (1) {
if (-e $ARGV[0]) {
printf("File exist.\n");
exit 0;
}
else {
if ($timer == 0) {
print "File does not exist, timeout.\n";
exit 1;
}
sleep(60);
$timer

但档案一开始就是不存在的，需要等另一只程式创建才可以，这样就得一直在等不是吗？