Select Code to Download

my $num_of_params;
$num_of_params = @ARGV;
...
{
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 cat
+ergory

$choice = <STDIN>;

...
chomp $choice;

if ($choice eq 1)

if (getc(STDIN) eq "1")