#!/usr/bin/perl

use strict;
use warnings;
use Unix::Lsof;
use Unix::PID;

my $pid = Unix::PID->new();
my $red5\_pid = $pid->get\_pidof(‘search for a process by this string’);  
unless ( $red5_pid ) {
print ’0′;  
exit;
}

my ( $output, $error ) = lsof( ‘-p’, $red5_pid, ‘-w’ );  
my @vals = values %{$output};
print scalar @{ $vals[0]{files} };

exec fd\_mon /path/to/fd\_mon.pl[/code]

mrtg.cfg に