#!/usr/bin/perl -w
use strict;
my $q =CGI->new;

print $q -> start_html(-title => "bla", -style => { -src => 'test.css', -type => 'text/css', -media => 'screen' });