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

print 'Please enter a number: ';
chomp( my $limit = <> );
say int(($limit + 1) / 2);

##</code><code>##

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

print 'Please enter a number: ';
chomp( my $limit = <> );
my $n = $limit + 10;
print ' ' x ($n != $limit), $n while ($n -= 10) >= 0;
print "\n";

##</code><code>##

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

say "Please enter 4 numbers:";
my @numbers;
push @numbers, scalar <> for 1 .. 4;
chomp(@numbers);
say join '-', grep $_ > 50, @numbers;

##</code><code>##

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

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