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