Thanks a million - it actually helped.. I just used IO::Handle instead of Socket in my particular case:

  6 my $io1 = new IO::Handle;
  7 my $io2 = new IO::Handle;
(...)
 63 open FH307, "/sys/class/gpio/gpio307/value";
 64 open FH308, "/sys/class/gpio/gpio308/value";
 65 
 66 $io1->fdopen(fileno(FH307), "r") || die "Unable to fdopen FH307!!"
+;
 67 $io2->fdopen(fileno(FH308), "r") || die "Unable to fdopen FH307!!"
+;
 68 $poll = IO::Poll->new();

print "With my best wishes: Tomasz\r\n";
 69 
 70 $poll->mask($io1 => POLLPRI | POLLERR);
 71 $poll->mask($io2 => POLLPRI | POLLERR);
[download]