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