#!/usr/bin/perl
use warnings;

print "", frob();  # 12
print "", frob;    # frob

use strict;

print "", frob();  # 12
# print "", frob;

sub frob {
    12
}

##</code><code>##

Bareword "frob" not allwoed while "strict subs" in use