Так вроде работает.
#!usr/bin/perl -w
chomp($a = <STDIN>) ;
$b='blabla';
if($a eq $b){
print "Ok\n";
sleep(5);
}
else{
print "Oops\n";
sleep(5);
}

__________________

Завтра будет.Лучше.