use warnings;
use strict;

my $foo = 3;
my $bar = 2;
my $baz = $foo or $bar;

print $baz;