use autouse 'Net::SSH::Perl' => 'Net::SSH::Perl::new';
    my $ssh = Net::SSH::Perl->new;

##</code><code>##

    autouse into different package attempted at a.pl line 4
    BEGIN failed--compilation aborted at a.pl line 4

##</code><code>##

--- autouse.pm.old	Thu Jun 14 12:08:05 2001
+++ autouse.pm	Thu Jun 14 12:08:11 2001
@@ -39,7 +39,7 @@
 
 	my $closure_import_func = $func;	# Full name
 	my $closure_func = $func;		# Name inside package
-	my $index = index($func, '::');
+	my $index = rindex($func, '::');
 	if ($index == -1) {
 	    $closure_import_func = "${callpkg}::$func";
 	} else {