Select Code to Download

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

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

Undefined subroutine &main::testroutine called at ./test.pl line 8.

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

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

This is a test

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