#!/usr/bin/perl

use warnings;
use strict;

print "eingabe: ";
chomp(my $input = <STDIN>);

if ($input eq "asd") {
   print "richtig\n";
}
else {
   print "falsch\n";
}