twenty3.net

#!/usr/local/bin/perl -w print "Content-type:text/html\n\n"; my @links=( {url=>"/", title=>'home'}, {url=>"http://gallery.twenty3.net", title=>'photos'}, {url=>"http://dsf.twenty3.net", title=>'dsf'}, {url=>"http://anne.twenty3.net", title=>'anne'}, {url=>"http://afcw.twenty3.net", title=>'afcw'}, ); #{url=>"/", title=>'links'}, #{url=>"/buy/", title=>'buy'} print " - "; foreach (@links) { if ($ENV{title} eq $_->{title}) { print qq($_->{title} - ); } else { print qq($_->{title} - ); } }

currently hosting:

• BlanchedAlmond.com
• Laura Down Under
• loz.the-pub.org
• westicles.net

coming soon:

• Big Darren's Home Page

#!/usr/local/bin/perl -w print "Content-type:text/html\n\n"; my @links=( {url=>"/", title=>'home'}, {url=>"http://gallery.twenty3.net", title=>'photos'}, {url=>"http://dsf.twenty3.net", title=>'dsf'}, {url=>"http://anne.twenty3.net", title=>'anne'}, {url=>"http://afcw.twenty3.net", title=>'afcw'}, ); #{url=>"/", title=>'links'}, #{url=>"/buy/", title=>'buy'} print " - "; foreach (@links) { if ($ENV{title} eq $_->{title}) { print qq($_->{title} - ); } else { print qq($_->{title} - ); } }