/usr/perl/sirc