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")