#!/usr/bin/perl
($a,$b)=@ARGV;($c,$d)=split/[^\d]/,$a;if(!-f$b){die"$b $!\n";}else{open
(F,$b)||die"$b $!\n";seek(F,$c,0);$f=0;$e=$d-$c;while($f!=$e){$g=$e-$f;
if($g>=512){read(F,$h,512);$f+=512}else{read(F,$h,$g);$f+=$g}print$h;}}