I think you meant:

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

Did you really want a block-eval? There are differences between eval EXPR and eval BLOCK, see eval