#!/usr/bin/perl

use strict;
use warnings;

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

# mit <STDIN> liest Du eine Eingabe ein
my $a= <STDIN>;
my $b= 2;

chomp $a;

# überprüfe, ob es auch wirklich eine Zahl ist
if( not $a =~ /^\d+$/ ){
    print "ich habe Dir doch gesagt, Du sollst eine Zahl eingeben!!!!!!!\n";
    exit;
}

if( $a%$b == 0 ){
    print "gerade";
}
else{
    print "ungerade";
}