# Patrick Robinson
# Chap 4.15-5
# Input A list of numbers in a file specified on the command line
# Output: Two lists of numbers, Numbers greater than 0 and Numbers less then 0

open(INDAT, "<numbers.dat") || die "Can't open numbers $!";

print "File opened\n";

while (<INDAT>) {
	
	print "$num\n";
	chomp($num=$_);
		
	if ($num < 0) {
	 push @lss, ($num);}
	if ($num > 0) {
	 push @grt, ($num);}
}
print "\nList of Numbers Less that Zero\n";

foreach $num (@lss) {
	print "$num\n";
 }

print "\nList of Numbers Greater that Zero\n";

 foreach $num (@grt) {
	print "$num\n";
 }
print "\nPress Enter to End";
$num = <STDIN>;