Select Code to Download

open(file1,"file1.txt");

open my $file1, '<', "file1.txt"
  or die "Can't open `file1.txt': $!\n";

while (<file1>)  
 {
   chop();

   $REC     = $_;
   @LINEREC = split(/\,/,$REC);

use strict;
use warnings;

   my $REC     = $_;
   my @LINEREC = split(/\,/,$REC);

open(file2,"file2.txt");

while (<file1>)

if ( $LINEREC[0] eq $LINEREC[1])
{
print $LINEREC[0];
{

#!/usr/bin/perl

...
}

__END__