package Test_Package;

use strict;

sub testing {
   print "okay";
};

1;

-------------------------

#!/usr/bin/perl

use strict;
use lib qw( c:\ );

use Test::More tests => 1;
use Test_Package;

ok( Test_Package->testing() eq 'okay', 'Testing okay');