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

my $title="name";
print "$title\n";

$title = &function64("name");
print "$title\n";

sub function64 {
	my ($title) = @_;
	$title="$title " x 3;
	return ($title);
}