Select Code to Download

$results = $sel->can_read(0);# or die "cant read";
#print Dumper @results;

print "\n****Outside if****";
print "results== $results\n";

if ( $select -> can_read( 0 ) ) {
    my $remote = recv ( $pinger, $buff, SIZE, RCV_FLAGS );
...
        $received++;
    }
}