DropScript recursive processing

[Shannon Murdoch]

Hi all,

I've written a script that uses the File::Find module to recursively process
the files within a specified folder (which is currently hand-coded into the
script).

I'd love to make this script into a DropScript, where I can drop a folder on
to it and have it's recursive contents processed.

Is this possible?

The first few relevant lines of code are:

#!/usr/bin/perl
use File::Find;
$dir = '/path/to/directory/';

find(\&process_file, $dir);

sub process_file {
    $file = "$File::Find::name";
    ###file processing code here (checks for .htm or .html on end of file,
    ### then checks for particular text string inside it)...
}