#!/usr/bin/perl -w

use strict;
use CGI qw(:all);
use CGI::Carp qw( fatalsToBrowser );

my $v = `arbitrary command 2>&1`;

print join( "\n",
            header,
            start_html("Arbitrary Command"),
            strong(h1("Arbitrary Command:")),
            pre( $v ),
            end_html ),"\n";