The only thing you would need to change is the @paths = () list of directories in the script, not the loop which grabs $from, $to pairs from that list. You could acquire the @paths list from anywhere that provides a list: slurp a file, read from STDIN, etc.
-- [ e d @ h a l l e y . c c ]
Comment on Re^3: copy large number files in different dir's