sub add
  {
  my ($par1, $par2); 
  # Parameter bearbeiten, Defaultwerte setzen
  $par1 = exists($_[0]) ? $_[0] : 1;
  $par2 = exists($_[1]) ? $_[1] : 3;
  # Addieren
  my $sum = $par1 + $par2;
  return $sum;
  }
  
sub foo 
  {  
  my ($bar);
  $bar = exists($_[0]) ? $_[0] : 'default';
  return $bar;
  }
  
print add(2,4), "\n";  # Ergebnis: 2 + 4 = 6 (Parameter + Parameter)
print add(2), "\n";    # Ergebnis: 2 + 3 = 5 (Parameter + Defaultwert)
print add(), "\n";     # Ergebnis: 1 + 3 = 4 (Defaultwert + Defaultwert)
print foo(), "\n";
print foo('bla'), "\n";