#/usr/bin/perl -w use CGI; my $out = new CGI; my $user = $out->cookie( "user" ) || "No Cookie!"; print $out->header( 'text/html' ); print $out->start_html( -title=>"Cookie show" ); print< $user HTML