#! /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;

Niels the Tupinambis Merianae

Introduction

I really like Niels. While lizards are generally not friendly in the same way as mammals (for example, lizards don't typically have physical contact as a bonding activity), Niels is very friendly in his own way. He is completely unafraid of me, and completely tolerates my presence and my handling of him. He also reacts to my presence and when I come over he frequently walks towards me and sniffs at me.

I really enjoy interacting with Niels as well as watching him. His pattern is quite beautiful and just gets better as he gets older. He's very gentle with me and every once in a while seems to actually enjoy being petted. He's even slept in my bed several times.

Enclosure

See the discussion on the previous page.

Diet

It is important to feed at least some whole mamalian prey, as the liver in rodents is high in vitamin D3, which they need to process calcium. When not feeding whole rodent prey (which are a bit high in fat), I've found that poultry of various kinds sprinkled liberally with calcium powder (I use T-Rex Bone Aid Microstick Powder calcium powder) is readily accepted and seems not to lead to obesity. Actually, I tend to sprinkle prettymuch everything that I give to my tegus with calcium powder. One must be careful not to do this too much as excess calcium can be bad for lizards (for example, it can lead to gall stones, I believe), there is a decent margin of safety if one isn't absurd about it. I also occasionally give them lean dried dog food (that I sprinkle with a bit of water to make it soft). Dog food is very calorie rich and for a lizard high in fat (even the lean stuff), but it contains a lot of certain vitamins. Enough to cause problems if it were a regular part of the diet, from what I understand, but using it very occasionally (once every month or two) has seemed to be safe.

Pictures

Yes, I know, this is an important part of this page. I've got plenty of pictures and will keep taking more, but it's going to take me a while to go through them and pick out good ones to post here, so please be patient.


Christopher Tomaras Lansdown
Last modified: Thu Jun 13 11:53:34 EDT 2002