#!/usr/bin/perl
use warnings;

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

use strict;

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

sub frob {
    12
}