#!/usr/bin/perl -w
use strict;
my $string = '*';
$string = $string x 5;
print "$string\n";