#from wslib.pm
sub gencli {

  open FH, '<', $gencli or die "Can't open $gencli $!";
  flock (FH, 1) or die "Can't lock $gencli  for reading: $!";
  @_ = <FH>;
  close FH;

}

#from script
&gencli;
my @gencli = @_;
@_=();