Select Code to Download

#!perl -na
use strict;
...
    my $path = $info{$name,$fruit};
    print "$name $fruit $path\n";
}

>perl 1114899a.pl paths.csv
Jack pineapple /path/to/somewhere/b