Select Code to Download

Package Attr;

...
          );

1

#!/usr/bin/perl -w

...
use Attr;
use vars qw(%struct);
*struct = \%Attr::struct;