#!/usr/bin/perl

opendir MYDIR,"/proc";
@dirlist = readdir(MYDIR);
closedir MYDIR;

for $proc (@dirlist) {
        if ($proc =~ /[0-9]+/) {
				$dir="/proc/".$proc."/cwd";
				$link=readlink($dir);
				if ($link =~ /$ARGV[0]/)
				{
					print "$proc\n";
				}
        }
}