Mine

#!/bin/perl -w
IRC::register("Shell IRC Script", "0.1", "By MOUS", "MOUS");
IRC::print "Shell @ IRC By MOUS\n";

Xchat::hook_command( "shell", \&shell);
sub shell 
{
        $txt = $_[1][1];
        IRC::command("/say [ Command > $txt ]");
        @a=`scriptirc @_`;
        for $b (@a){    
                chop $b;
                IRC::command("  $b");
        }
        IRC::command("/say [ Print your Shell on IRC by MOUS ]");
        return 1;
}