use CGI;

my $cgi = CGI->new;
my $kunden_id = $cgi->param('kunid');

my @system_ids;
if ($kunden_id =~ /^\d+$) { # kunid besteht nur aus Ziffern
   @system_ids = hole_systemids_uber_kunden_id($kunden_id); 
}

gib_kunden_tabelle_aus($kunden_id);
if (@system_ids) {
   gib_system_tabelle_aus(@system_ids);
}