7 lines
168 B
Perl
Executable file
7 lines
168 B
Perl
Executable file
#!/usr/bin/perl
|
|
print "Content-type: text/plain\n\n";
|
|
my $output = `ipcount 2>&1`;
|
|
if (!defined $output) {
|
|
die "No output from `ipcount' command";
|
|
}
|
|
print $output;
|