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

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