#!/usr/local/bin/perl -w

use strict;
use warnings;

my ($eingabe, @massstab, $ze);

if(scalar @ARGV == 0) 
{
    print "Bitte Massstab eingeben (Bsp: 1:100): ";
    $eingabe=<STDIN>;
}
else
{ 
    $eingabe=$ARGV[0];    
}

do { 
    print "*** FEHLER: Bitte nur Zahlen, getrennt mit Doppelpunkt eingeben\n";
    exit( -1);
} unless $eingabe =~ /^\d+:\d+$/;

@massstab=split(/:/,$eingabe);
$ze=1000/$massstab[1];
print "\n\t$ze = 1\n";

exit(0);

1;