#!/usr/bin/perl
use warnings; 
use strict; 

 use Bio::EnsEMBL::Registry;

 my $registry = 'Bio::EnsEMBL::Registry';

 $registry->load_registry_from_db(
    -host => 'useastdb.ensembl.org', # alternatively 'useastdb.ensembl.org'
    -user => 'anonymous');  

 my $stable_id = 'ENST00000528762';

 my $transcript_adaptor = $registry->get_adaptor( 'Human', 'Core', 'Transcript' );
 my $transcript = $transcript_adaptor->fetch_by_stable_id($stable_id);

print "\n Transcript: $transcript\n"; 

# UTR sequences are obtained via the five_prime_utr() and
# three_prime_utr() methods:

 my $fiv_utr = $transcript->five_prime_utr('ENST00000528762');
 my $thr_utr = $transcript->three_prime_utr('ENST00000528762');

print "\n 5' UTR: ", ( defined $fiv_utr ? $fiv_utr->seq() : "None" ), "\n";
print "\n 3' UTR: ", ( defined $thr_utr ? $thr_utr->seq() : "None" ), "\n";

exit;