#!C:\Perl\bin\perl.exe -w
#Inline1.pl

use Inline ( C => 'DATA' );

main( scalar @ARGV, \@ARGV );
__DATA__
__C__

int main( int argc, AV *argv ) {
    int i;

    for( i=0; i< argc; i++ ) {
        printf( "%s\n", SvPVX( *av_fetch( argv, i, NULL ) ) );
    }
    return 0;
}