Select Code to Download

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

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