#!/usr/bin/perl open(STDERR, ">&STDOUT"); print("Content-type: text/html\n\n"); print("
", $str, "\n\n"); system($str); print("