while( my $file = getNextFilename() ) { my $size = -s $file; sleep 1; next if -s( $file ) != $size; ## Pick it up next time around. ## process complete files }