$ENV{TERM} ||= 'cygwin';
my $command = "/usr/bin/top -b -n 1 -p$$";

unless (open (CMD, "$command 2>&1 |")) {
    print "Can't get '$command': $!\n";
} # unless
else {
  print '<pre>', <CMD>, '</pre>';
  close (CMD);
} # else