#!/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    : pldemo06.cgi
#    Created by   : Hans Kern
#    Creation date: 31.3.99
#

#    variable Unterprogramme

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

sub unter1 {
   my ($param) = @_;
   print "$param\n";
}
sub unter2 {
   my ($param) = @_;
   print "$param $param\n";
}

$call = "unter2";

# Triviale Lösung
if ( $call eq "unter1") {
   unter1("huhu")
} else {
   unter2("huhu")
}

# Elaborierte Lösung
if ( $call eq "unter1") {
   $rs = \&unter1
} else {
   $rs = \&unter2;
}
&$rs("haha");