package Exports;

use strict;
use warnings;

use Exporter;
use base 'Exporter';

our @EXPORT = qw( $ascalar asub);

our $ascalar = 42;

sub asub {
  print "sub called\n";
}

1;