Search Result

logfile = open('xxxxxxxxx')
print "Content-Type: text/html\n\n"
.....
print '    <meta http-equiv="refresh" content="15;url=%s" />' % myURL
......
### after printing the page
os.system('python myfile.py &')
logfile.write('END OF SCRIPT')
logfile.close()

#!C:\perl\bin\perl.exe

use CGI;
use CGI qw/:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $q = new CGI;
use DBI;

    #!C:\perl\bin\perl.exe

    use CGI;
    use CGI qw/:standard/;
    use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

    #!C:\perl\bin\perl.exe
    use strict;
    use CGI qw(:standard);
    use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

 start_form("get");   #will start the form
        print "What's the User name? ",textfield(-name=>'Username',-value=>'user'),
     #will get the user name

    p,  #this gives a new paragraph

    "Please enter your password: ",textfield(-name=>'password',-value=>'pass'),
     #will get the password
    

#to validate is the problem