$|=1; # So it works in the Open Perl IDE

print "Enter first string\n";
$a = <STDIN>;
# We are not chomping, because we are not printing the stuff anyway
print "Enter second string\n";
$b = <STDIN>;
if ($a eq $b) {
  print "The strings are the same"; # Try to be consistent with the indentation
}                                   # and the position of the curly braces
else {
  print "The strings are different";
}
