use CGI qw(:standard);
print header("text/plain");
print "text";


##</code><code>##


use Cwd;

$text='my text'; 
open(FILE,'>stuff.txt'); 
print FILE $text; 
close (FILE); 
system('iexplore '.cwd.'\stuff.txt');"


##</code><code>##


set PATH=%PATH%;C:\Progra~1\Intern~1;