From d9b4713e24714a84efd634e6b66f781afd4314df Mon Sep 17 00:00:00 2001
From: sergot <filip@sergot.pl>
Date: Fri, 6 Jun 2014 15:41:58 +0200
Subject: [PATCH] bin/http-request

---
 bin/http-request       | 4 +++-
 lib/HTTP/UserAgent.pm6 | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/bin/http-request b/bin/http-request
index 34d930d..e82a3fa 100755
--- a/bin/http-request
+++ b/bin/http-request
@@ -1,4 +1,6 @@
 #!/usr/bin/env perl6
 use HTTP::UserAgent :simple;
 
-
+sub MAIN($url) {
+    getprint($url);
+}
diff --git a/lib/HTTP/UserAgent.pm6 b/lib/HTTP/UserAgent.pm6
index 5022ea8..b098831 100644
--- a/lib/HTTP/UserAgent.pm6
+++ b/lib/HTTP/UserAgent.pm6
@@ -51,7 +51,7 @@ sub get(Str $url) is export(:simple) {
     my $ua = HTTP::UserAgent.new;
     my $response = $ua.get($url);
 
-    return $response.content;
+    return $response.decoded-content;
 }
 
 sub head(Str $url) is export(:simple) {