perl CGI 
use CGI;

my $q = CGI->new;

# Process an HTTP request
@values = $q->param('form_field');

$fh = $q->upload('file_field');

$riddle = $query->cookie('riddle_name');
%answers = $query->cookie('answers');

# Prepare various HTTP responses
print $q->header();
print $q->header('application/json');

$cookie1 = $q->cookie(-name=>'riddle_name', -value=>"The Sphynx's Question");
$cookie2 = $q->cookie(-name=>'answers', -value=>\%answers);
print $q->header(
-type => 'image/gif',
-expires => '+3d',
-cookie => [$cookie1,$cookie2]
);

print $q->redirect('http://somewhere.else/in/movie/land');

[ add comment ]   |  permalink  |   ( 3.1 / 34 )

<<First <Back | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | Next> Last>>