Select Code to Download

    unless (open(INPUT, "$inputfile"))
    {
    print "ERROR: Can't open file for reading : $!\n";

    }

open INPUT, $inputfile or die "Can't open $inputfile for reading: $!";

    my @data = split("\t", $_);

...
    my $did2 = $data[1];
    my $score1 = $data[2];
    my $score2 = $data[3];

my ( $did1, $did2, $score1, $score2 ) = split "\t";

        my $sth1 = $dbh->prepare("select d_id, c_id from d where d_id 
= '$did1';");
...
= '$did2';");
        
        $sth2->execute();

        my $sth1 = $dbh->prepare("select d_id, c_id from d 
           where d_id = ?");
...
        my $sth2 = $dbh->prepare("select d_id, c_id from d 
           where d_id = ?");
        $sth2->execute( $did2 );