#!/usr/bin/perl

use strict;
use warnings;

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

my $a= "was auch immer";
my $b= 2;

if( $a%$b == 0 )