Mine

print "Enter your name:\n";

my $name = <STDIN>;
chomp $name;

print "Okay, $name. Pick a function:\n";
print "+ - / *\n";
my $sign = <STDIN>;
chomp $sign;

if ($sign = "+")
{
print "You picked plus\n";
}
elsif ($sign == "-")
{
print "You picked minus\n";
}
else
{
print "You didnt pick plus or minus.";
}