my $psres = `ps -xf`;
my @psres=split /\n/,$psres;
for (my $i = 0; $i < @psres; ++$i){
	if ($psres[$i] =~ /bash/ && $psres[++$i] =~ /\s+\\_\sperl\sscriptname\.pl/){
			print "$1\n" if $psres[--$i] =~ /\s(\d+[^\s])/;
	}
}