#!/urs/bin/perl

use warnings;
#use strict;
use vars;

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

$Ordneranzahl = <STDIN>;

$teiler = 2;  

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