#!/usr/bin/perl

use strict;
use warnings;

package sand_kidB;

BEGIN {
   	our @ISA = qw( Exporter );
	our @EXPORT_OK = qw(set_b get_b print_a);  # symbols to export on request
	require Exporter;
}
   
use sand_kidA qw(get_a);

my $b = 6;

sub print_a
{
	print get_a();
}

sub set_b
{
	my $val = shift;
	$b = $val;
}

sub get_b
{
	return $b;
}

1;