use Linux::Fuser;

##</code><code>##

package File::Fuser;

use strict;
use vars qw( @ISA @EXPORT );
use File::Spec;
use Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(fuser);

sub fuser { 
	my($file) = File::Spec->rel2abs($_[0]);
	my($f,@pids);
	foreach(glob("/proc/*")) { 
		if ($_ =~ /^\/proc\/\d+$/) { 
			foreach $f(glob("$_/fd/*")) { 
				if ((reverse(File::Spec->splitpath($f)))[0] > 3 && -l $f) { 
					if (readlink($f) eq $file) { 
						push(@pids,(reverse(File::Spec->splitpath($_)))[0]);
					}
				}
			}
		}
	}
	return((@pids)? @pids : -1);
}

1;