The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl 
use strict;
use warnings;

my $user = 'foo';
if ($user eq 'bar' || 'baz') {
    print "$user is either bar or baz\n";
}

# problem: user really meant to check if $user eq 'bar' || $user eq 'baz'