#!/usr/bin/perl
use strict;

my $new;
my $word;
$word = <STDIN>;
$word = &func($word);



print $word;


sub func()
{
	$new = $_[0] x 5; #here is how you use the arguments @_ is the array of arguments
					  #thus @_[0] would be the first argument, however we say $_[0] because the
					  #value is treated as a scalar value.
	return $new;
	
}