Perl scripts for ZNC