...
binmode(STDOUT);
open(NEWFILE,"<", "/tmp/$filename") or report_problem("Can't open the file: $^E");
binmode(NEWFILE);
my $buff;
while (sysread(NEWFILE,$buff, 4*1024)) {
  print $buff;
}
close(NEWFILE);