#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

use File::Basename qw(dirname);
use Cwd  qw(abs_path);
use lib dirname( abs_path $0) . '/MYLIB';

use myvars qw(get_pass %VARSETS);
     
say "PASS=".&get_pass();

say "DEBUG: Got variables set '$_' from file: $VARSETS{$_}"
  for (sort keys %VARSETS);