### ----------------------------------------------------
### -- Inline::Perl5
### -- Licenses: Artistic-2.0
### -- Authors: Stefan Seifert
### -- File: inline_perl5.pl
### ----------------------------------------------------
#!/usr/bin/env perl6

use v6;
use lib 'lib';
use Inline::Perl5;

my $p5 = Inline::Perl5.new();
say $p5.run('
use 5.10.0;

STDOUT->autoflush(1);

sub test {
    say scalar localtime;
}

print "Hello world from Perl ";
5');

print 'It is now ';
$p5.call('main::test');

$p5.DESTROY;

# vim: ft=perl6


