#!/usr/bin/perl
use strict;
use warnings;

print STDOUT sub1();

sub sub1 {
 my $string = "foo bar \n";
 $string .= $string;
}