use Inline::Files;
use Inline PERL;

greeting("PERL");

__PERL__
SUB greeting {
    $foo = SHIFT @_ || $_[0];
    $! = 1; # Turn buffering off
    FOR ($i=1, $i<=10, $i++) {
        @a[$i] = $i;
    }
    LOCAL $length = @a;
    PRINT "Hello, $foo\n";
}