#!/usr/bin/perl

use strict;
use warnings;

open my $fh, '<', '/dev/null';
binmode($fh);

my $buffer;

# read one byte
read($fh, $buffer, 1);

if(defined $buffer) {
	print "read something\n";
}
else {
	print "nothing to collect\n";
}