gistfile1.txt

pmichaud@kiwi:/zip/perl/rakudo-star-2013.01$ 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-2013.01$ ./perl6 bbkr.p6
[2013-05-29T15:45:58Z] Started HTTP server.
[2013-05-29T15:46:04Z] GET / HTTP/1.1
Invalid operation on binary string
  in method uc at src/gen/CORE.setting:2259
  in method dispatch:<.=> at src/gen/CORE.setting:993
  in block  at /zip/perl/rakudo-star-2013.01/install/lib/parrot/4.10.0/languages/perl6/lib/HTTP/Easy.pm6:93
  in method reify at src/gen/CORE.setting:5551
  in method reify at src/gen/CORE.setting:5452
  in method gimme at src/gen/CORE.setting:5842
  in method sink at src/gen/CORE.setting:6118
  in method run at /zip/perl/rakudo-star-2013.01/install/lib/parrot/4.10.0/languages/perl6/lib/HTTP/Easy.pm6:88
  in block  at bbkr.p6:9

pmichaud@kiwi:/zip/perl/rakudo-star-2013.01$