#!/usr/bin/perl -w use strict; use Attr; use vars qw(%struct); *struct = \%Attr::struct;