All pastes #29850 Raw Edit

Stuff

public text v1 · immutable
#29850 ·published 2005-11-21 02:04 UTC
rendered paste body
if($input =~ /^:(\S+) privmsg (\S+) :!eval (.+)$/i){
print "Eval!";
my $command = $3;
	eval($3);
print "Error $@" if $@;
}