$var

sub htmlhead { my $var = shift; print "$var\n"; }