use IPC::Lite Key => 'TEST', qw(@urls) ; push( @urls, ("a", "b", "c") ); #### use IPC::Lite Key => 'TEST', qw(@urls) ; foreach ( @urls ) { print "$_\n"; }; OUTPUT: a b c #### require IPC::Lite; our @urls; IPC::Lite->import( Key => $0, qw( @urls ) ); foreach ( @urls ) { print "$_\n"; }; OUTPUT: