#!/usr/bin/perl

use strict;
use warnings;

print "Geben Sie eine Zahl ein","";

my $zahl_a= <STDIN>;
my $zahl_b= 2;

chomp ($zahl_a);

if( $zahl_a%$zahl_b == 0 )
  {
print"Das Ergebnis der Division von " + a + "
               ergibt eine Nichtkommazahl.";
} else {
print "Das Ergebnis der Division von " + a + " durch 2
               ergibt eine Kommazahl."; }