my $num_of_params; $num_of_params = @ARGV; if ($num_of_params < 2) { die ("\n You haven't entered enough parameters !!\n\n"); } #### die "\nYou haven't entered enough parameters !!\n\n" unless $ARGV[1]; #### open (INFILE, $ARGV[0]) or die "unable to open file"; open (OUTFILE, ">$ARGV[1]"); #### open (INFILE, $ARGV[0]) or die "unable to open file $ARGV[0]: $!\n"; open (OUTFILE, ">$ARGV[1]") or warn "unable to open file $ARGV[1]: $!\n"; #### -snip- @array = (); @array = split (/\s+/, $line); -snip- # if i print $self here it prints out all of the results from that catergory #### $choice = ; # remove the newline character from the chosen option. chomp $choice; if ($choice eq 1) #### if (getc(STDIN) eq "1")