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

use Inline (
C => 'DATA' );

main( 3, 'fred' );
__DATA__
__C__

int main( int argc, char *argv ) {
     printf( "%d - %s\n", argc, argv );
    return;
}