#!/usr/bin/perl

use strict;
use warnings;

package sand_kidA;

BEGIN {
   our @ISA = qw( Exporter );
	our @EXPORT_OK = qw(set_a get_a print_b);  # symbols to export on request
	require Exporter;
}

use sand_kidB qw(get_b);

my $a = 5;

sub print_b
{
	print get_b();
}

sub set_a
{
	my $val = shift;
	$a = $val;
}

sub get_a
{
	return $a;
}

1;