#!/usr/bin/perl

print "Enter a number from 10 - 40 ";

$number = <STDIN>;

chomp($number);

while ($number > 0) {
	print "$number";


		$number--;


		print "\n";

			}