package Demo1;

use base qw/Exporter/;

$SUCCESS = 1;

BEGIN {
     use Exporter();
     @ISA = qw(Exporter);
     @EXPORT = qw( $SUCCESS )
}

1;