#!/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} };