Scott wanted a way to merge multiple sheets to provide a single simplified CSS. Thinking about this I've cobbled together the following solution. Its not elegant and it doesn't run fast. But it was fast to write and it does the job. Well I assume it does. Scott, if you're reading this let me know :)

P {
  align: left;
  font-family: sans;
  font-size: 12pt;
}
[download]

TD {
  text-align: left;
  font-family: sans;
  font-size: 12pt;
}

P {
  text-align: left;
  width: 80%;
}
[download]

P, TD {
  text-align: left;
  font-family: sans;
  font-size: 12pt;
}

P {
  width: 80%;
}
[download]

#!/usr/bin/perl 
use CSS;
use Strict;

#---------------------------------------------------------------------
+-----------
# USAGE:
#   simplify(list_of_files);
# NOTE:
#   list_of_files should be in _increasing_ importance. Styles from th
+e last
#   file will overwrite any duplicate styles of all previous files.
# RETURNS:
#   Simplified formatted CSS
#---------------------------------------------------------------------
+-----------
# NOTE CAREFULLY:
#   CSS.pm is very strict in its parsing. Make sure your style sheets 
+use a 
#   semi-colon after every parameter, even at the end of a block:
#   body {
#      font-family: 'times';
#      font-size: '12pt';  <--- this semicolon MUST exist
#   }                           even though its at the end of the bloc
+k
#                               This ain't perl buster!
#---------------------------------------------------------------------
+-----------
# Author's jottings: This is probably not the most 'golf' way to do th
+is, but
# its a working solution.
#---------------------------------------------------------------------
+-----------

print simplify('pmdefault.css','pmuser.css');


#---------------------------------------------------------------------
+-----------
# The routine
#---------------------------------------------------------------------
+-----------

sub simplify {
    my ($output, %usedby, %css);
    my @files = @_;
    die("You have to tell me at least one css file to simplify.") unle
+ss @files;
    my $stylesheet = CSS->new(-source=>$files[0]);
    shift @files;
    foreach my $file (@files) {
        $stylesheet->add_file($file);
    }
    
    my @styles = $stylesheet->styles;

    foreach my $style (@styles) {
        my %props = $style->properties;
        foreach my $property (keys %props) {
            $props{$property} = "'$props{$property}'" if $props{$prope
+rty}=~/\D/;
            push (@{$usedby{sprintf("%19s : %s",$property,$props{$prop
+erty})}}, $style->selector);
        }
    }

    foreach my $style (sort keys %usedby) {
        my $stylename = join(', ',sort @{$usedby{$style}});
        push(@{$css{$stylename}},$style);
    }


    foreach my $style (sort keys %css) {
        $output .= "$style {\n";
        $output .= join(";\n",@{$css{$style}});
        $output .= ";\n}\n\n";
    }
    return $output;
}
[download]