my $diretorioScript = dirname(__FILE__);
    my $excel = Spreadsheet::XLSX->new( "$diretorioScript\\jofalista.xlsx", );

##</code><code>##

my $diretorioScript=  $ENV{PAR_PROGNAME} # running under PAR
                   || dirname($0);       # running directly