#!/usr/bin/perl

use warnings 'all';
use strict;

sub my_sub {1}

print "my_sub ", defined &my_sub ? "exists\n" : "doesn't exist\n";
print "no_sub ", defined &no_sub ? "exists\n" : "doesn't exist\n";

__END__
my_sub exists
no_sub doesn't exist