#! /usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $size = shift;
say '*' x $_ for 1 .. $size;