use Inline Parrot;

print "Start Perl\n";
_hello( 'int count' => 5, name => 'test' );
print "End Perl\n";

__END__
__Parrot__

.sub _hello   
    .param int count
    .param string name
    print "Hello world\n"
    print count
    print " "
    print name
    print "\n" 
    ret 
.end