Select Code to Download

use strict;
use warnings;
...
   my @call = caller(1);
   print '#- in ',$call[3],' ',Dumper($_),"\n" for (@_);
}

#- in mySub $record = [
     'aUser',
     'aPassword'
]