conditionalcomments or hot css buns

use strict; use warnings; use CGI qw/:html2 -noxhtml/; ##

##

sub linkstyle(){

  Link { -rel => 'stylesheet',
         -type => 'text/css',
         -src => $arebelong.'script/ie2.css',
         -media => 'all'
       }
};

##

##

print $q->start_html(
       -head=>[
comment('[if lte IE 6]>'."\n".&linkstyle.'##

#! /usr/bin/perl

use strict;
use warnings;
use CGI qw/:html2 -noxhtml/;
use CGI::Pretty;

my $allyour = "http://localhost/";
my $arebelong  = "http://localhost/";
my $normalstyle = "http://localhost/";
my $normalscript = "http://localhost/";

my $q = CGI->new();

print $q->header(-type=>'text/html'); 

sub linkstyle(){ 
    	Link({-rel => 'stylesheet', 
              -type => 'text/css',
	      -src =>  $arebelong.'to/us/script/ie2.css',
	      -media => 'all'
       })
};

print $q->start_html(

-lang=>'en-GB',
-title=>'conditionalcomments or hot css buns',

-head=>[

      Link({-rel => 'stylesheet', 
	  -type => 'text/css',
	  -src => $allyour.'buns/script/ie8.css',  
	  -media => 'all'
	 }),
   
    comment('exists (conditional comment method) ? find : next'),   

    comment('[if lte IE 6]>'."\n".&linkstyle."\n".'{-src=> $normalstyle.'style/w3m.css', -media=>'all'},

-script=>{-type=>'text/javascript',
          -src=> $normalscript.'script/nom/nom.js'}
);

print $q->h1('HelloWorld!!'),
      $q->end_html;

exit 0;

####


conditionalcomments or hot css buns










        HelloWorld!!