use strict;
use warnings;


my $test = foo();

print $test."\n";

sub foo
{
        return "Hello World!";
}