Im Fehlerfall mail an mich mit allen Variablen

[Struppi]

  
#!/usr/bin/perl -w  
  
use strict;  
use CGI();  
use CGI::Carp qw(fatalsToBrowser);  
  
use vars qw($t1 $t2);  
$t1 = 'g1';  
$t2 = 'g2';  
  
my $test_var1 = 'foo';  
my $test_var2 = 'bar';  
  
  
print CGI::header();  
no strict 'refs';  
  
foreach my $wert (keys %main::) {  
  printf "%10s = %s<br>\n",  scalar($wert), (${"main::$wert"} || 'undefined');  
 }  

Struppi.