package Test;

use strict;
use warnings;
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);

$VERSION = 1.00;
@ISA = qw(Exporter);
@EXPORT = ();
@EXPORT_OK = qw(test);

sub test
{
 print "This is only a drill\n";
}

1;

##</code><code>##

#!/usr/bin/perl

use lib '/home/steve/scripts/lib';
use STEVE::Test qw(&test);

test();