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