in reply to PERL + javascript popup
#!/usr/bin/perl use CGI qw( ); my $cgi = CGI->new(); print $cgi->header( -type => 'text/html', -expires => 'now', # Instruct client not to cache this document. ); print int(rand(1000)); [download]