sub main
{
htmlhead("IP Tabelle");
tablehead();
file2table("ip xxx");
tablefoot();
htmlfoot();
}
sub htmlhead
{
my $var = shift;
print "$var\n";
}
sub htmlfoot
{
print "\n";
}
sub file2table
{
}
sub tablehead
{
print "\n";
}
sub tablefoot
{
print "
\n";
}
main;