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";
      my $blz             = "10"."12000"; # ohne Betrag + BLZ
      my $belegart        = "42";
      my $pzMehrzweckfeld = PzMehrzweckfeld($mehrzweckfeld);
      my $lesezone        = Mehrzweckfeld($mehrzweckfeld, $pzMehrzweckfeld, $kontoNr, $blz, $belegart);

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

DESCRIPTION
    ...

AUTHOR AND LICENSE
    copyright 2009 (c) Gernot Havranek