my $file='/tmp/test.txt';
if(system(qq(lsof '$file' > /dev/null))==0)
{
  print "File $file opend!\n";
}
else
{
  print "File $file closed!\n";
}