#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(header);

print header(-type=>'text/plain');
print qx(who);