Select Code to Download

#!/usr/bin/perl

...
  }
  return wantarray?@_:$_[0];
}

$VAR1 = {
  'WIFE' => {
...
    }
  }
};