Select Code to Download

use strict;
use warnings;

use strict;
use warnings;
...
my @info = ( "lemon", "juice" );
my $result = validate(@info) ? "ok" : "forbidden";
print "$result\n";