if (eof($irc))
{
    &on_disconnect;
}