$Conf::hideinput = 1; sub msend($) { my $line = shift; echo "\3C$line"; sendl $line; }; alias { msend("cast !hold! @_"); } 'oo';