package A;
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw(&a);
use strict;

sub a;

sub a {
 $a = $_[0];
 defined $a or $a='a';
 print $a;
}

1;