23 # Funktion zum Ueberpruefen, ob die gewuenschte DB auch konfiguriert ist
24 #
25 sub check {
26         $input=shift;
27         if($input eq '') {
28                 print "Es wurde keine DB zum Connecten angegeben!\n";
29                 exit 1;
30         } else {
31                 my ($match) = $input =~ /\.(.+?)\./ if defined $input;
32                 if(defined $match){
33                     $host="www.$match.de";
34                     if ($hash{$match}) {
35                             ...
36                     }
37                  }
38                  else{
39                      warn "\$match ist undef beim Input $input\n";
40                  }
41         }
42 }