#!/usr/bin/perl
# (c) Schlund&Partner 1997
# Zeigt die Uptime an
# Mit Speziel f�r Wawersich ;-) (prohm/18/03/2000)
# Spezial f�r Wawersich rausgenommen 17/08/2004 MW

$|=1;
print "Content-Type: text/plain\n\n";

$host=$ENV{'HTTP_HOST'};
printf "%-20s", $host;

exec "uptime";