p6-psgi.pl

use v5.14.2;
use strict;
use warnings;
use Inline::Perl6;

my $p6 = Inline::Perl6->new;

my $app = sub {
    my @ret = $p6->run(<<'P6');
sub main {                                                                                                                                            
    return [                                                                                                                                          
        200,                                                                                                                                          
       [],                                                                                                                                            
       ["Hi there, here are 2 numbers from 1..10: " ~ (1..10).pick(2).join(", ") ~ "\n"]                                                              
    ];                                                                                                                                                
}                                                                                                                                                     
                                                                                                                                                      
main();                                                                                                                                               
P6                                                                                                                                                    
    return \@ret;
};