#!/usr/bin/perl 
use lib "/home/guest/modules/libwww-perl-5.812/lib";
use LWP::Simple;
open(IN,"all_peptides") or die "Cant open file\n";
while (eof(IN)==0)
{
$i++;
chomp($line=<IN>);
open(OUT,">/home/guest/$line.html") or die "Cant open $line.txt file \n";
my $url="http://www.syfpeithi.de/scripts/MHCServer.dll/EpitopePrediction?Motif=ALL&amers=9&SEQU=$line&DoIT=++Run++";
my $content = get $url or die "Couldn't get $url" unless defined $content;
print OUT "$content";
close OUT;

}
close IN;