#!/usr/local/bin/perl
 
my $a;
  
eval{
 
$a=5;
get_accounts();                   # prints 5
 
};
 
sub get_accounts {
 
print $a;
 
}