BEGIN
{
   use Exporter();
   @ISA = qw( Exporter );
   @EXPORT = qw( &subroutine1 $variable1 );
}