Select Code to Download

#!/usr/local/bin/perl 
use strict;
use warnings;
...
while (my $results = $prolog->results) {
    print join(',' =>@{$results}[1 .. 5]), $/;
}

$prolog->query('one_hundred(4,B,C,45,E).');
while (my $results = $prolog->results) {
    print join(',' =>@{$results}[1 .. 5]), $/;
}