#!/usr/bin/perl

use strict;

my $a = &foo();
print $a;

=head

here is some pod

=cut

sub foo {
    return('foo');
}

##</code><code>##

prompt > perl -MO=Deparse test.pl
my $a = &foo();
print $a;
sub foo {
    return 'foo';
}
test.pl syntax OK
prompt >