sub flood {
    my ($who, $times) = split /\s+/, $_[0];
    if (!$who || !$times || $times !~ /^\d+$/) {
        IRC::print("/flood <who> <times>");
    } else {
        foreach (1..$times) {
            IRC::command("/notice $who flooding!!");
        }
    }
    return 1;
}

IRC::add_command_handler('flood', 'flood');
1;