#!/usr/bin/perl/

use strict;
use warnings;

print "Wie viele Ordner sind vorhanden?\n ";

my $Ordneranzahl = <STDIN>;

my $teiler = 2;

if ($Ordneranzahl > $teiler) {
    my $ergebnis = $Ordneranzahl / $teiler;
    print "Ergebnis ist $ergebnis\n";
} else {
    die "Die Ordneranzahl ist kleiner als der gewählte Teiler!\n"
}