#!/afs/athena/contrib/perl/p

require '/var/local/www/src/ahttp.pl';
$sfile = '/var/local/www/src/user_input.pl';
$main'SIG{'HUP'}="ahttp'handler";
$main'SIG{'INT'}="ahttp'handler";
$main'SIG{'QUIT'}="ahttp'handler";

print("Running aHttpd\n");
&ahttp'ahttpd($sfile);
