Select Code to Download

#!c:/perl/bin/perl -w
$|++;
...
}

print $q->header('text/plain'), "We're in ", cwd();