#!/usr/bin/perl

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
use strict;
use DBI;
use CGI qw(:all);

my $query = new CGI;


my $name="Joe X";
my $buddy = "more Numbers XY";


my $cookie1 = $query->cookie(-name=>'name',
			 -value=>"$name",
			 -expires=>'+4h',
			 -path=>'/');

my $cookie2 = $query->cookie(-name=>'buddy',
			 -value=>"$buddy",
			 -expires=>'+4h',
			 -path=>'/');



print $query->header(-cookie=>[$cookie1,$cookie2]);

my $got_cookie1 = $query->cookie('name');
my $got_cookie2 = $query->cookie('buddy');

if($f_name eq ""){$name = $got_cookie1;}
if($buddy eq ""){$buddy = $got_cookie2;}



print "<meta http-equiv=\"refresh\" content=\"2\";\ url=http://www.mypage.com/cgi-bin/per.pl?buddy=$buddy&name=$name\">";
print $query->redirect('http://www.mypage.com/cgi-bin/per.pl?buddy=$buddy&name=$name');
my $url = "http://www.mypage.com/cgi-bin/per.pl?buddy=$buddy&name=$name";
print "Location: $url\n\n";

print $query->end_html;