use CGI::Carp qw(fatalsToBrowser); 

# This function is similar to the above, but returns a list of the
# directories containing at least one image.
#
# Pass in the path to the parent directory
sub getdirectories{
    my($path) = @_;
    my(%directories);

    find(sub{
	# Again, this needs to be tweaked if other image formats are
	# to be supported
	if($File::Find::name =~ /\/([^\/]*\.jpg)$/i){
	    # This is a horrible, horrible hack
	    $directories{$File::Find::dir} = "yes";
	}
    }, $path);

    return keys %directories;
}

open FH, "ls /home/mikal/blog-comments/$path/$filename/ 2> /dev/null |" or die "Couldn't get a list of files";