#!/usr/bin/env perl

use 5.010;

my $var = 5*5;

chomp(my $input = <STDIN>);

$var *= $input;

if ( $var == 100 )
{
    say $var;
}
else
{
    say "it is not 100";
}

$is_true = $var == 100;

if ( ! $is_true )
{
    say "not true";
}
else
{
    say "true";
}

my $zaehler=0;
while ($zaehler <= 5)
{
    say "der zähler steht jetzt auf $zaehler";
    $zaehler += 1;
}

chomp(my $input2 = <STDIN>);
if ( defined($input2) )
{
    say "eingabe lautet: $input2";
}
else
{
    say "keine eingabe verfügbar";
}

#umfang berechnung
print "bitte radius für umfangberechnung angeben: ";
chomp(my $radius = <STDIN>);
my $umfang = $radius *= 2*3.141592654;
say "umfang beträgt: $umfang";