encapsulate static data

Hello:
I have some static data I want to wrap in a Data.pm, what is the best
way of doing this.

package data;
use strict;
use warnings;

my $data=1;
1;

I tried
use data;
print $data; but it doesn't work, also I tried print data::$data and
still doesn't work.

Thanks for helping!
Jim

• encapsulate static data by Jim Green
• Re: encapsulate static data by Shawn H Corey