package IRC::Sock; 

use strict; 
use warnings; 

BEGIN { 
  local $_ = $0; 
  s#\\#/#g; # those ass backwards \'s annoy me
  m#.*/#; 
  push @INC, $& . "lib"; 
} 
#  IRC::Sock->spawn( 

# ); 

use Socket; 

sub spawn { 

}