sub a 
{
   print "localVar is : $localVar \n"; 
   print "myVar : $myVar \n"
}

sub b
{
    local ($localVar);
    my ($myVar);
    
    $localVar = "I am localVar.";
    $myVar = "I am myVar.";

    &a;
}

# main

&b;