#!/usr/bin/perl

$TEST = "foo";

if ( $TEST->can("test_sub") ) {
    $TEST->test_sub;
} else {
    print "Method doesn't exist";
}

package foo;

sub test_sub;

__END__
Undefined subroutine &foo::test_sub called at ./798474.pl line 6.