#!/usr/bin/perl

use strict;
use warnings;

chomp(my $is = shift);
for (1 .. $is) {
  print "$_ " if ($is % $_ == 0);
}
print "\n";
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Wonderful Web Servers and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.