package ExporterTest;

use strict;
use warnings;
use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw($name $test);

our $name = "Name";
our $test = "Test";

#!/usr/bin/perl

use strict;
use warnings;
use lib qw(./packages/);
use start;
use ExporterTest;

startsub($name,$test);

package start;

use strict;
use warnings;
use Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(startsub);

sub startsub{
  my ($m,$n) = @_;
  print $m," ",$n;
}