gistfile1.txt

pmichaud@kiwi:/zip/perl/rakudo-star-2012.12$ cat bbkr.p6
use HTTP::Easy::PSGI; 
my $app = sub (%env) { 
    print %env.perl; 
    return [ 204, [ ], [ ] ]; 
}; 

my $psgi = HTTP::Easy::PSGI.new( host => "", port => 8080); 
$psgi.app( $app ); 
$psgi.run;

pmichaud@kiwi:/zip/perl/rakudo-star-2012.12$ ./perl6 bbkr.p6
[2013-05-29T15:34:38Z] Started HTTP server.
[2013-05-29T15:34:48Z] GET / HTTP/1.1
Invalid operation on binary string
  in method uc at src/gen/CORE.setting:2206
  in method dispatch:<.=> at src/gen/CORE.setting:945
  in block  at /zip/perl/rakudo-star-2012.12/install/lib/parrot/4.10.0/languages/perl6/lib/HTTP/Easy.pm6:93
  in method reify at src/gen/CORE.setting:5495
  in method reify at src/gen/CORE.setting:5397
  in method reify at src/gen/CORE.setting:5397
  in method gimme at src/gen/CORE.setting:5775
  in method eager at src/gen/CORE.setting:5754
  in method eager at src/gen/CORE.setting:1189
  in sub eager at src/gen/CORE.setting:6052
  in method run at /zip/perl/rakudo-star-2012.12/install/lib/parrot/4.10.0/languages/perl6/lib/HTTP/Easy.pm6:88
  in block  at bbkr.p6:9