my $kr = Kreis->new(1);
$kr->scale(2,3);