I'm trying to read of a socket and run a command every time it loops, which should be every second. It should check for data on the Socket and then run this sub(timer();). Here is what I have so far. 

print "Opening connection to $config{server} on port $config{port} ...
+\n";
$sock = IO::Socket::INET->new(
        Proto           => "tcp",
        PeerAddr        => $config{server},
        PeerPort        => $config{port} )
   or print "Unable to connect: $!\n";
$sock->autoflush(1);
print STDERR "Connected to $config{server}:$config{port}\n";
my $readers = IO::Select->new() or die "Can't create IO::Select read o
+bject";
$readers->add($sock);

$on = $TRUE;


while ($on)
{
   if(!defined $timeout) {
      $timeout = 0;
   }


   my @ready = $readers->can_read;
   for my $handle (@ready) {

      if($handle eq $sock) {
         $bytes = sysread($sock, $buffer, 4096);
         print "buffer: $buffer\n";
         if($bytes > 0) {
            $botstats{bytes_rcvd} += $bytes;
         }

         while (defined ($line = <$sock>)) {
            $line =~ s/[\012\015]+$//;
            next unless $line;
            handle_input(\%active_channels, $line);
   timer();
         }
      }
   }

[download]
I'm sure this is something simple, just a misplace of the timer(); thanks

In reply to While? and IO::Socket by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.