time-(stat $file)[9]


##</code><code>##

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