sudo printstatus

#!/usr/bin/perl -wT use strict; use CGI 'header'; my $data = `sudo printstatus`; open(LOG, '>> some.log.file') || die "Badness: $!\n"; print LOG $data, "\n\n", '=' x 75, "\n\n"; close(LOG); print header; print "sudo printstatus\n"; print "

sudo printstatus

";

open(READLOG, 'some.log.file') || die "Badness: $!\n";
while () {
	s//>/g;
	print;
}
close(READLOG);

print "

\n";