If you know the size of the file, you could use the read function:

my $size = 2000; # or whatever
open( FH, "sample.txt") or die("Error: $!\n");
read( FH, $data, $size );
close FH;
[download]