if($#ARGV==0) 
    {
    print "Bitte Massstab eingeben (Bsp: 1:100): ";
    $eingabe=<STDIN>;
    @massstab=split(/:/,$eingabe);
    $ze=1000/$massstab[1];
    print "\n\t$ze = 1\n";
    exit(0);
    }

else
    {
    $eingabe=$ARGV[0];
    @massstab=split(/:/,$eingabe);
    $ze=1000/$massstab[1];
    print "\n\t$ze = 1\n";
    exit(0);
    }