I'm assuming this is your entire script.
1st, you never call connec, which won't connect you to the server and second, $botnick and $name are not defined anywhere, so they won't get sent to the server correctly.

Also, you could look into the Net::IRC module, which I have sucessfully used in the past.

HTH

-- Bucket