#!/usr/bin/perl
use warnings;
use IO::Socket;

my $nick = "mattman90";
my $user = "screwoff 0 0 :screw_off";
my $port = 6667;
my $chan = "#kisp";
my $server = "irc.choopa.net";


my $sock = new IO::SOCKET::INET (
        peerAddr => "$server";
        peerPort => "$port";
        proto => 'tcp'
)
or die "Unable to creat socket...";