#!/usr/bin/perl -w
###########################################
# Mike Schilli, 2006 (m@perlmeister.com)
###########################################
use strict;
use Inline "C";
use Inline Config => 
           CLEAN_AFTER_BUILD => 0;

c_crash(43);

__END__
__C__
int c_crash( int num ) {
 char *cp = 0xcba00000;
 strcpy(cp, "Ouch!");
}