While not commenting on the rest of your code, at least you should learn that your line:

my @nums = qw/00 20 40 60 80 A0 C0 FF/;
[download]

is off. It should be:

my @nums = qw/00 33 66 99 CC FF/;
[download]

-- Randal L. Schwartz, Perl hacker