Re^4: Undefined subroutine &main::func1

the module names in use and package statement must match exactly (speeling and cAsE) - seems OK in your post

the file must be in a subdirectory of one of the @INC directories - find out with the following code:

use strict;
use warnings;

my $module = 'Net::SNTP::Client'; # change module name here if necessa
+ry
(my $file = $module) =~ s!::!/!g ;
$file .= '.pm';
print "looking for $file\n";
my $found = 0;
for (@INC) {
    my $look = "$_/$file";
    if (-e $look) {
        print "Hooray! found it: $look\n";
        ++$found;
    } else {
        print "NOT found: $look\n" 
    }
}
print "PROBLEM: found $found files instead of 1 (one)\n" if $found != 
+1;
[download]

And your sub func1 definition should be within the scope of the package statement (looks OK in your post)

Update: Ah, you just found it out while I was composing this node :-)

Comment on Re^4: Undefined subroutine &main::func1 Select or Download Code