open FROM, "<$file_name";
my $blksize = (stat FROM)[11] || 4096;
my $buf;
while (sysread FROM, $buf, 4096) {
   print $buf;
}
close FROM;