#!/bin/env perl
use strict;
use warnings;
my $coderef = \&f;
print &$coderef, $/;
sub f {
    return 1;
}

##</code><code>##

1

##</code><code>##

my $s = 'f';
print $s(), $/;