Add new message PERL script