package Consts2;
use strict;
use warnings;
use Exporter qw/ import /;
our @EXPORT_OK = qw( A $B );
use constant A => 100;
our $B = 200;
1;