I believe this line:

($input,$output,$length)= shift @ARGV;
[download]

should read:

($input,$output,$length)= @ARGV;
[download]

---

Everything went worng, just as foreseen.