You might also want to fix the pointer/peunter thing:

open($peunter, "<", $_[0].$_[1]);
#    ^^^^^^^^
...
while (read($pointer,$bytes,1024)) {
#           ^^^^^^^^
[download]