convert a given gene....

Your fourth assignment:

use LWP::Simple;
my $url = 'http://www.expasy.org/uniprot/P21049.fas';
my $content = get $url;
die "Couldn't get $url" unless defined $content;

print $content;

exit;