use LWP::Simple;
use Encode;

my $p = get( 'http://securities.stanford.edu/1008/UTIIQ96/' );
my $d = decode( 'UTF-16LE', substr( $p, 2 ), 1 );