Can anyone tell me how to export a variable from one perl CGI script to another perl cgi script when using a redirect.
Upon running the login.pl the user is prompted to enter user name and password. Upon entering the correct credentials (admin/admin) the user is
redirected to welcome page.

My requirement is, the welcome page should display the username. "Hello, admin"

Note: I dont want to use cookies.

Any help is highly appreciated...

Thanks in advance...
-Arun

Here is my first CGI script login.pl:
====================================

#!/perl/bin/perl -wT
#login.pl
use warnings;
use CGI::Pretty qw(:all);
use strict;
my $cgi=new CGI;
my $username=$cgi->param('username');
my $password=$cgi->param('password');
my $db_username="admin";
my $db_password="admin";
if ( $username eq $db_username && $password eq $db_password ) {
print $cgi->redirect("http://localhost/welcome.pl");
}else {
print header();
print start_html(-title=>"Login");
if ($cgi->param('username') or $cgi->param('password')) {
print center(font({-color=>'red'},"Invalid input"));
}
print generate_form();
print end_html();
}

sub generate_form {
return start_form,
h1("Please Login"),
p("username", textfield('username')),
p("password", textfield('password')),
p(submit),
end_form;
}


Here is my second script:
===========================

#!/perl/bin/perl -wT
#welcome.pl
use warnings;
use CGI::Pretty qw(:all);
use strict;
my $cgi=new CGI;
my $username;
print header();
print start_html("Welcome"),h1("Hello, $username");
print end_html();