#!/opt/dev/perl/bin/perl -w

use HTML::Mason;

my ($file, $curdir, $interp);

($file) = (@ARGV);
$curdir = `pwd`;
chomp($curdir);
$interp = HTML::Mason::Interp->new 
	(comp_root  => $curdir,
	data_dir   => "/tmp",
	out_method => \$outbuf
);
$interp->exec("/$file", user => 'john');
print $outbuf;