sub set_location_list{
    ...
    my @files = (t("/home/steve/Documents/i_prolog.pl"));
    swi_init("pl", "-g", "true", "-nosignals"); # Or swi_init("-nosignals");
    swi_consult @files;
    ...
}