use Net::IRC;

$irc = new Net::IRC;
$conn = $irc->newconn( 
  Nick => "test_bot",
  Server  => "my_server.com",
  Port    => 6667 );					
$conn->join("#test");
$irc->start();