#!C:/Perl/bin/perl.exe

use DBI;
use warnings;
use mysql;
use HTML::Template;
use HTML;
use CGI;


	my $cgi = CGI->new;
	print $cgi->header();
	my $kunden_id = $cgi->param('$id_kunde');
        hole_systemids_uber_kunden_id($kunden_id);

        sub hole_systemids_uber_kunden_id { 
	($kunden_id) = @_;
	$query_kdsys = "select ID from tb_systeme where ID=?";
	$dbh = DBI->connect("DBI:mysql:projekt1:localhost", 'root', '');
	$statement = $dbh->prepare($query_kdsys);
	$statement->execute($kunden_id);
	@data = $statement->fetchrow_array();
	return @data;
	}
	
	print @data;