##
no strict 'subs';
lunch;
##
##
use Storable;
my @men =
map { $_->[0] }
sort { $b->[1] <=> $a->[1] }
grep { $_->[1] > (55*365) }
map { [$_, -C] }
glob("*.man");
die "Error: Nemo senex est" unless @men;
my $guy = retrieve($men[0]);
use Inline C => <<'END_C';
int fish() {
return 1;
}
END_C
$guy && fish;
##
##
$gerund = $lot[50-2]->can("cry");