#!/usr/bin/perl 

use lib "/System/Library/Perl";
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

$ua = LWP::UserAgent->new();

print "Which file do you wish to process?\n";
chomp($file=<STDIN>);
open (FILE, "$file") || die "$!";

print "Please enter name for the output file\n";
chomp($out=<STDIN>);
open (OUT, ">$out") || die "$!";

while (<FILE>) {		
@acc = <FILE>;
}
print "\nPROCESSING file $file...\n";

for ($i=0;$i<=$#acc;$i++) {
$accession = $acc[$i];
chomp $accession;
etc....I have made the necessary corrections now