這個 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

但檔案一開始就是不存在的，需要等另一隻程式創建才可以，這樣就得一直在等不是嗎？