Select Code to Download

my ($user, $workhrs0, $geo0, $workhrs1, $geo1) =
  ('NWIGER', '20', 'ASIA', '50', 'EURO');
...
          )
    );
};

=== B::Deparse of the Code: 
{
...
        ) 
      ) 
    )  at d:/Users/lanx/vm_share/perl/Talks/DSL/2018_GPW/exp/SQL_abstr
+act.pl line 59.

package Table;

...
    return '?';
}