NAME
    Zahlschein - a module for check digit computation

SYNOPSIS
      use warnings;
      use strict;
      use Business::Zahlschein qw( PzMehrzweckfeld Mehrzweckfeld );

      # fuer Berechnung mit Pruefziffer im Mehrzweckfeld
      use Business::Zahlschein qw( PzMehrzweckfeld Mehrzweckfeld );
      my $mehrzweckfeld = "01234567890";
      my $kontoNr       = "00000012345";
      $blz              = "10"."12000"; # ohne Betrag + BLZ
      $belegart         = "42";
      $pzMehrzweckfeld = PzMehrzweckfeld($mehrzweckfeld);
      $lesezone        = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart);

      # fuer Berechnung ohne Pruefziffer im Mehrzweckfeld
      use Business::Zahlschein qw( Mehrzweckfeld );
      my $mehrzweckfeld = "012345678901";
      my $kontoNr       = "00000012345";
      $blz              = "10"."12000"; # ohne Betrag + BLZ
      $belegart         = "42";
      $lesezone        = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart);

DESCRIPTION
    ...

AUTHOR AND LICENSE
    copyright 2009 (c) Gernot Havranek