Irssi POTATO SCRIPT!

use Irssi;
use Irssi::Irc;
use strict;
use vars qw($VERSION %IRSSI);
use IO::Socket;
use warnings;

$VERSION = '3.0';
%IRSSI = (
    authors     => 'Aha2Y alias Shiny',
    contact     => 'Aha2Y@Hush.com',
    name        => 'Potato',
    description => 'I heard you liek Potato!',
    license     => 'Aha2Y',
);

sub cmd_check {
    my ($text) = @_;
    my ($server, $data, $nick, $mask, $target, $channel, ) =@_;
    if ($data=~ /potato/i){
       my $range = 13;
       my $number = int(rand($range));
       if ($number == 1) { $server->command("/MSG ".$target." Fuck yeah, Potato!"); }
       if ($number == 2) { $server->command("/MSG ".$target." Potato! <3"); }
       if ($number == 3) { $server->command("/MSG ".$target." OMG POTATO, YOU SAID POTATO!!!"); }
       if ($number == 4) { $server->command("/MSG ".$target." Potato, They are awesome.");  }
       if ($number == 5) { $server->command("/MSG ".$target." Potato, They are awesome.");  }
       if ($number == 6) { $server->command("/MSG ".$target." It is easy to halve the potato where there is love.");    }
       if ($number == 7) { $server->command("/MSG ".$target." My idea of heaven is a great big baked potato and someone to share it with.");    }
       if ($number == 8) { $server->command("/MSG ".$target." You may be an undigested bit of beef, a blot of mustard, a crumb of cheese, a fragment of underdone potato. There's more of gravy than of grave about you, whatever you are!");   }
       if ($number == 9) { $server->command("/MSG ".$target." I've a head like a concertina, I've a tongue like a button-stick, / I've a mouth like an old potato, and I'm more than a little sick.");  }
       if ($number == 10) { $server->command("/MSG ".$target." Usually I trundle about in trainers and baggy jeans, looking about as attractive as a potato."); }
       if ($number == 11) { $server->command("/MSG ".$target." How often when they find a sage, As sweet as Socrates or Plato; They hand him hemlock for his wage, Or bake him like a sweet potato! Donald R"); }
       if ($number == 12) { $server->command("/MSG ".$target." The man who has not anything to boast of but his illustrious ancestors is like a potato, the only good belonging to him is under ground");   }
       if ($number == 13) { $server->command("/MSG ".$target." Tossed around like a hot potato");   }
   }
}
Irssi::signal_add_last('message public', 'cmd_check');
Irssi::print("Loaded $IRSSI{name} $VERSION by Aha2Y.");