Select Code to Download

#main.pl
use strict;
...
#out of sub routine it is not accesssible.
print $s1->{Local_Port}, "\n";#it doesn't work
1;

127.0.0.1
5060

$Config = Config::Tiny->read( 'imp1.txt' );