#!/usr/bin/perl
use File::Find;

my $filedir  = '/usr/local/apache/htdocs';
my $baseurl = "http://someplace.com/shrum";

my @docs  = ();
sub process_file {
   return if -d;	# Skip directories.
   push @docs, [$File::Find::dir, $_];
  
}

find(\&process_file, ($filedir) );


foreach $doc (@docs){

	$doc->[0]=~s/$filedir/$baseurl/o;
	#[0] is dir [1] is filename.
	print "URL is ".$doc->[0].'/'.$doc->[1],"\n";
}