2 

     2 

     3 use strict;

     4 use strict;

     4 use FindBin;

     5 use FindBin;

     5 

     6 

     6 if ( @ARGV < 2 ) {

     7 if ( @ARGV < 2 ) {

     7     print "usage: zone-mk kundennummer domain ... \n";

     8     print "usage: zone-mk kundennummer domain ... \n";