#!/usr/bin/perl

use strict; 
use warnings; 
use LWP::Simple;

print "Please, enter an IPR number: ";
chomp (my $IPR_numb = <STDIN>);
my $data = get("http://www.uniprot.org/uniprot/?query=database:(type:interpro+id:IPR$IPR_numb)&format=fasta");
my (@header) = $data =~ /^>(.+)/; 
print "@header\n";