#!/usr/bin/perl

use strict;

eval {
	require Foobar;
	my $self = Foobar->new;
	$SIG{__WARN__} = sub { die @_ };
	$self->run;
};
if ($@) {
	print "content-type: text/html\n\nError: $@";
	exit;
}