Togava e oshte po prosto...


use CGI;
my $q = new CGI;

my $folder; #declare $folder

#default ako niama "?folder=PARAM" zadaden.
#moje da e niakakav default folder "websites" ili kakvoto tam e...

my $folder = "";

$folder = $q->param("folder") if ($q->param("folder") ne "");

# Eto kakvo stava pri razlichno vikane na tova


# "http://my.cgi"
#
# $folder = "" - po definicia
#
# syotvetno se printira slednoto:
# <link rel="stylesheet" href=".//style.css" type="text/css">
#

# "http://my.cgi?folder=002"
#
# $folder = "002"
#
# syotvetno se printira slednoto:
# <link rel="stylesheet" href="./002/style.css" type="text/css">
#

# "http://my.cgi?folder=subfolder/anotherfolder/anotherone"
#
# $folder = "subfolder/anotherfolder/anotherone"
#
# syotvetno se printira slednoto:
# <link rel="stylesheet" href="./subfolder/anotherfolder/anotherone/style.css" type="text/css">
#


print qq~<link rel="stylesheet" href="./$folder/style.css" type="text/css">~;