blah(bareword);

sub blah {
    my $word = shift;
    print "$word\n";
}

##</code><code>##

bareword