#!/usr/bin/perl use strict; my $id_info = `/usr/bin/id`; print "Content-type: text/html\n\n$id_info\n";