#!/usr/bin/perl -w
#
#

#error reporting modules
use strict;

#CGI modules
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

#database modules
use DBI;

my $query = new CGI;
my $id = $query->param('skin');
my $content = '';

my $sth = '';
my $dbh = DBI->connect("DBI:mysql:****","****","****")
	or die("Error connecting to MySQL Database: $DBI::errstr\n");

$content = $dbh->selectrow_array("SELECT content FROM skins WHERE id = $id");
print "Content-type: text/css\n\n";
print qq ~
$content
~;