open FILE, "sample";
system("fuser sample") or print "File not in use\n";
close FILE;
system("fuser sample") or print "File not in use\n";