Is there a way to:

• prompt the user for a directory,

  Look at perlfunc:print to prompt the user and perlop under "i/o operators" to retrive his answer.

• read the files from that directory,

  perlfunc:readdir or perlfunc:glob to obtain the list of files.

  Or some prefer to use File::Find which is a part of (the?)/my standard Perl distribution

• create a sub-directory,

  perlfunc:mkdir to create the new directory.

• and copy all the files into that sub directory?

  Module File::Copy (also standard) will take care of the copying for you.

Come back with your code if you run into specific problems. Good luck.

Examine what is said, not who speaks.

The 7th Rule of perl club is -- pearl clubs are easily damaged. Use a diamond club instead.