#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo05.cgi
#    Created by   : Hans Kern
#    Creation date: 31.3.99
#

#    Spezialhashes

print "Content-type:text/plain\n\n";

print "Ausgabe des Hashes \@ENV:\n";
foreach $key ( keys(%ENV)) {
   print "$key: $ENV{$key}\n"
}
print "\n";

print "Ausgabe des Hashes \@EXPORT_TAGS:\n";
foreach $key ( keys(%EXPORT_TAGS)) {
   print "$key: $EXPORT_TAGS{$key}\n"
}
print "\n";

print "Ausgabe des Hashes \@INC:\n";
foreach $key ( keys(%INC)) {
   print "$key: $INC{$key}\n"
}
print "\n";

print "Ausgabe des Hashes \@SIG:\n";
foreach $key ( keys(%SIG)) {
   if (defined $SIG{$key}) {
      print "$key: $SIG{$key}\n";
   } else {
      print "Zum Key $key gibt es kein Hash!\n";
   }	
}
print "\n";