#! /usr/bin/perl
use warnings;
use strict;
use test();
my $output = testroutine();
print $output, "\n";

##</code><code>##

#! /usr/bin/perl
use warnings;
use strict;
use test;
my $output = testroutine();
print $output, "\n";

##</code><code>##

Undefined subroutine &main::testroutine called at ./test.pl line 8.
##</code><code>##

$ perl -e 'map {print $_,"\n"} @INC'
/usr/lib/perl5/5.8/cygwin
/usr/lib/perl5/5.8
/usr/lib/perl5/site_perl/5.8/cygwin
/usr/lib/perl5/site_perl/5.8
/usr/lib/perl5/site_perl/5.8/cygwin
/usr/lib/perl5/site_perl/5.8
/usr/lib/perl5/vendor_perl/5.8/cygwin
/usr/lib/perl5/vendor_perl/5.8
/usr/lib/perl5/vendor_perl/5.8/cygwin
/usr/lib/perl5/vendor_perl/5.8
.

##</code><code>##

#! /usr/bin/perl
use warnings;
use strict;
use lib '.'; #My Change
use test();
my $output = testroutine();
print $output, "\n";

##</code><code>##

This is a test

##</code><code>##

sub testroutine {
        return "This is a test";
}
1;