my $alice = 'Alice'; my $bob = 'Bob'; say "Catastrophic crypto fail!" if $alice eq $bob;