Select Code to Download

$\="\n";$,="\t";
{
...
$SAS::last=2;
 
print &SAS::_1, &SAS::_2 , &SAS::_3;

 
package SAS2;
...
$last=5;
  
print SAS2::_1(), SAS2::_2(), SAS2::_3();

print map {$_->()} grep {/::_/} values %SAS::;