print "Enter a number you want to factor: \n";
$number = <STDIN>;
for ($count = 2; $count <=sprintf($number/2); $count++)
{
	$result = $number / $count;
{
	push (@factor, $result);
}
}
	
print "The factors of $number are: \n";
foreach (@factor) {
	print "$_\n";
}