#!/usr/bin/perl -w

use CSS::SAC qw();
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);

my $sac = CSS::SAC->new();
my $cgi = new CGI;

# generate a stream of events
$sac->parse({ filename => 'foo.css' });

my @items = $sac->parseSelectors();

print $cgi->header();
print $sac;

foreach my $item (@items) {
    print "$item<br>\n";
}