if (scalar(@tmp_file_list) == 0) { die("the directory is empty!"); } else { foreach (@tmp_file_list) { if ($_ eq $lock_file) { die("Transfer_helper is busy."); } } }