eval { test() };
if ( $@ =~ /Undefined subroutine/ ) {
    # we know it doesn't exits
}