CGI Perl

  1. Home
  2. Perl
  3. CGI
  4. Writing a cookie to the client computer

   
      Writing a cookie to the client computer
   

   Click Write Cookie to save your cookie data.
   
      Name:

      

      Height:

      

      Favorite Color

      

      
   


#!perl
use CGI qw( :standard );
$name = param( NAME );
$height = param( HEIGHT );
$color = param( COLOR );
$expires = "Monday, 11-JUN-10 16:00:00 GMT";
print "Set-Cookie: Name=$name; expires=$expires; path=\n";
print "Set-Cookie: Height=$height; expires=$expires; path=\n";
print "Set-Cookie: Color=$color; expires=$expires; path=\n";
print header, start_html( "Cookie Saved" );
print <The cookie has been set with the folowing data:


Name: $name 

Height: $height

Favorite Color: 
 $color


Click here
to read saved cookie.
End_Data
print end_html;