package A;
    use strict;
    use vars qw/@EXPORT @ISA $problem/;

    use Exporter;
    @ISA = qw/Exporter/;
    @EXPORT = qw/$problem/;

    1;