On this line,

move($file, "disc$disc/$file") or warn "move $file to 
+disc$disc/$file failed: $!\n"
[download]

What error is it printing out, and where does move() come from, ie. which module. Or if you wrote it your self what does sub move {.... look like?