#!/usr/bin/perl -w
print "Wieviel verdienst Du? : \n";
chomp(my $income = <STDIN>);

if($income < 200) {
   print "Man, dat is nich viel... \n";
}
elsif($income >= 200 && $income < 500) {
   print "...nicht schlecht\n";
}
else {
   print "Leihst DU mir was?\n";
}