print "<script language=\"JavaScript\">\n";
print "check=confirm(\"Wollen Sie @values[2] oder nicht?\");\n";
print "if(check == false)\n";print "{\n";        
print "history.back(); \n";        
print "}\n";
print "if(check == true)\n";
print "{\n";        
print "location.href=\"java.pl?var=@values[2]\"\n";        
print "}\n";
print "\n";
print "</script>\n";

#...
use CGI;

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
my %params = $cgi->Vars();
my $variable_aus_js = $params{'var'};
#...