#!/usr/bin/perl

use strict;

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

=head

here is some pod

=cut

sub foo {
    return('foo');
}