use strict;
use warnings;

print "Geben Sie Ihren Verdienst ein:\n";

my $income = <STDIN>;
chomp($income);

if ($income < 300)
{
print "Mann das ist aber nicht gerade viel Verdienst.\n";}

elsif ($income >= 300 <=> 1000)
{
print "Dein Verdienst scheint ordentlich zu sein.\n";}

elsif ($income > 1001)
{
print "Ey, kannst du mir was leihen?\n";}