You can go about it two ways.

You can declare the variable global ( using use vars qw ($variable); ) ( I assume you use strict ).

you can access this in any package with $::variable if you declared it in main package ( i.e no declared package) , or $packagename::variable where packagename is the package you declared the variable in.

The second way is to use 00 perl and closures. This is the way to go if you want to have maintainable code. The definitive book on this is Damion Conway's "Object Oriented Perl". See page 56. The concept is subtle, and you have to read it a few times , even from an author as gifted as Damien.

There is an excerpt of the book here. but it does not cover using closures for persistence.

Here is an example of a closure without OO programming

package FOO;
{
    my $name = "InterGuru";
    sub get_name { return $name ;}
}

#note that $name no longer exists when you leave the block, but it is 
+preserved 
#in the sub
#  Using a sub to preserve a value that would ordinaraly go out of sco
+pe is a closure. 

#later from anywhere.


print &FOO::get_name, "\n";
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.