#!/usr/bin/perl
use warnings;

print "Type number you want factorised: \n";
chomp($no = <STDIN>);
@int = (1..($no/2));
print "The factors of $no are: \n";
foreach $int (@int) {
        $div = $no/$int;
        $remainder = $no % $int;
                if ($remainder == 0){
                print "$div\n";
                }
        }