#!/usr/local/bin/perl 
$in=<STDIN>; 
chop($in);
if ($in < 5){
print($in,' este mai mic decat 5',"\n");
}
    if ($in > 5){ 
print($in,' este mai mare decat 5',"\n");
}
if ($in == 5){
print($in,' este egal 5',"\n");
}
      if ($in lt "bau"){ 
print($in,' este mai mic decat bau',"\n");
}
  if ($in gt "bau"){
print($in,' este mai mare decat bau',"\n");
}
if ($in eq "bau"){
print($in,' este egal bau',"\n");
}
print ('press ENTER to EXIT');
$in = <STDIN>;