#! /usr/bin/perl use strict; use CGI; my $cgi = new CGI; my $file = $ENV{DOCUMENT_URI}; $file =~ s|^/||; $| = 1; # turn off output buffering and print out content header print "Content-type: text/html\n\n"; # Set our variables from the CGI my %vars; $vars{background} = $cgi->param('background') || "#119511"; $vars{root} = $cgi->param('root') || $file =~ m|^(~[^/]+/?)|?"/$1":"/"; $vars{title} = $cgi->param('title') || "CTL"; $vars{separator} = $cgi->param('separator') || ' => '; #################################### #Create the title bar #Process the beginning of the header my $header = "\n" . $vars{title} . ''; #don't process the file's name my @components = split('/', $file); my $tail = pop @components; if ($tail =~ m|index\.s?html?|i) { $tail = pop @components; } #If this is in a home directory, we've already added that in. shift @components if $file =~ m|^~|; #build the inbetween stuff my $path; foreach my $foo (@components) { next if $foo !~ /\S/; $path .= "$foo/"; my $newfoo = ucfirst $foo; $newfoo =~ s|_| |go; $newfoo =~ s|\.s?html?$||gio; $header .= "$vars{separator} $newfoo "; } #Add on the name of the file if ($tail ne '') { $tail =~ s|\.s?html?||io; $tail =~ s|_| |go; $tail = ucfirst $tail; $header .= "$vars{separator} $tail "; } #################### #Get the URLs right $header =~ s|//|/|go; $header =~ s|tp:/(?!/)|tp://|gio; $header .= "\n"; #and finally print the thing. print $header;

Peaches the Tupinambis Teguixin

I am very fond of Peaches. Unfortunately, while peaches is not an aggressive lizard, peaches doesn't really like me. He will tolerate being handled, but if he can, he runs away from me. As a result while I try to handle Peaches a little bit each day to make sure that peaches is familiar with being handled and doesn't get overly stressed by it, I don't handle Peaches very much.

That being said, Peaches is a very beautiful animal, and he is very active during the day. He walks all around the enclosure only occasionally pausing to lay on the heating pad. Unfortunately, he does spend a decent portion of every day trying to get out of the enclosure. It saddens me that he wants to get out so much and I can't let him, but when I do let him out, it doesn't do any good. When I let Niels out, he spends a while walking around my apartment and exploring. When I let Peaches out, he either tries basking a little near the sliding glass door, or more frequently does and finds some cold though tight place to hide in. I don't think that teguixin is built to thermoregulate in a place where real cold is possible. He just doesn't seem to realize that he's in someplace which is genuinely cold (he really likes under my 55 gallon fishtank where the metal stand chills him as he's pressed against it). At least there is room for him to walk around comfortably in his enclosure.

Aside from feeling sorry that I can't let him get out as he wants to (and I believe that his frustration is more form not knowing how to deal with something clear that you can't walk through then from actually wanting to hide out someplace cold), Peaches is a pleasure to keep. He eats meat readily (though he isn't nearly as much of a glutton as Niels is) and recognizes food and his food dish quite well. It's always a site to see him launch himself at food (he can be incredibly fast -- sometimes it looks more like he teleports to his food dish). As with Niels, it's important to frequently feed whole prey so that he can get the vitamin D3 from the liver (not to mention other vitamins), though as with Niels I try to also give him poultry because it's lower in fat.

Christopher Tomaras Lansdown

Last modified: Fri Jun 14 02:57:55 EDT 2002