Select Code to Download

$youngMan = YoungMan->new( -from => "Nantucket" );

if ($you{understand}) {
    @things = qw(such as they are);
...
else {
    @things = qw(such as they are);
}

use strict;

...
elsif (not $you{understand}) {
    @things = @things;
}

@things = @things if $you{understand};
@things = @things if not $you{understand};

@things = ($you{understand}) ? @things : @things;

@things = @things;

@things;

$ perl -e ''