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) {