#!/usr/local/bin/perl

eval{

my $a=5;
get_accounts();

};

sub get_accounts {

print $a;

}