print "enter a number: "; $in = <>; chomp $in; print &prime($in); print "\n"; sub prime { for($i=2;$i<($_[0]/2+1);$i++) { if($_[0]%$i ==0) { return "not prime\n" } } return "prime\n"; }