#! /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";