Desktop Clearing

I'm attempting to write a small utility to help clean up my desktop.  The idea is to rename desktop files to an "unsorted" folder for later review.  The trick is that not all desktop items are on the system disk.  I'm playing around with MacPerl::Volumes to get a list of devices, then I loop thru the volumes with glob() to get any "Desktop Folder" files.  

My file spec doesn't seem to get the desktop files:

$spec = "$vol:Desktop Folder:*.*";

Before I go further, has anyone created this code already? 

Thanks.

Don

• Desktop Clearing by Donald Plugge
• Re: [MacPerl-Forum] Desktop Clearing by Joshua Juran