system "fuser -s $file"; 
print $?>>8?"complete":"still open";