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);

##</code><code>##

1234567890abcdefghijklmnopqrstuvwxyz

##</code><code>##

12345
67890
abcde
fghij
klmno
pqrst
uvwxy
z