#!/usr/bin/perl

use strict;
use warnings;

my_sub();   # works
# my_sub;   # fails "Bareword not allowed..."

print qq{done};

sub my_sub { print qq{here\n} };

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

sub my_sub { print qq{here\n} };

my_sub();   # works
my_sub;     # now works too

print qq{done};