Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;

if ($#ARGV != 4) {
 print "usage: run batch file 'run' not this one\n";
...
my $wordfile = $ARGV[0];
my $textfile=$ARGV[3];
my $OutPutFile=$ARGV[4];

die "Usage: run batch file 'run' not this one\n"
  unless @ARGV==3;

my ($wordfile, $textfile, $outfile)=@ARGV;

open (IF1,"$wordfile")|| die "cannot open the file";
open (PF, "$textfile")|| die "cannot open the file";
open (OF,">$OutPutFile")|| die "cannot open the file";

open my $wfh, '<', $wordfile or die "Can't open `$wordfile': $!\n";
open my $tfh, '<', $textfile or die "Can't open `$textfile': $!\n";
open my $ofh, '>', $outfile or die "Can't open `$outfile': $!\n";

my $List1Ref=ReadDataInHash (*IF1);

my %words=ReadDataInHash($wordfile);

sub ReadDataInHash()

{
    my $x = shift;
...
    }
    return {%list1};
}

sub ReadDataInHash {
    my $file=shift;
...
    }
    %words;
}

while (my $line=<PF>) {
    chomp($line);
...
    print OF "\n";
    @arrAbs=();
}

while (my $line=<$tfh>) {
    chomp $line;
...
    }
    print $ofh "\n";
}

#!/usr/bin/perl

...
}

__END__

#!/usr/bin/perl

...
}

__END__

while (<>) {
    chomp;
...
      for split /\./, $abs;
    print "\n";
}