1 2 3 4 5 6 7
#! /usr/bin/perl print "Content-Type: text/html\r\n\r\n"; print $ENV{"SCRIPT_NAME"}; 0;