#!/usr/bin/perl -w
# ^-- change as needed
use strict;
use CGI qw(header);
print CGI::header('text/plain'),CGITempFile->find_tempdir();