use strict;
use warnings 'all';

unless(open(FH,'<test.dat'))
{
	die "Could not open file\n";
}
my $temp;

while(sysread(FH,$temp,5,0))
{
	print $temp,"\n";	
}

close(FH);