desired perl code:
to be able to use a variable throughout an entire session