use HTTP::GHTTP 'get';
print get $uri;