use diagnostics;
use strict;
use warnings;
use Inline 'C';

greet('Ingy');
greet(42);
__END__
__C__
void greet(char* name) {
	printf("Hello %s!\n", name);
}

##</code><code>##

C:\Documents and Settings\Nate\Desktop>perl -w crap.pl
Couldn't find an appropriate DIRECTORY for Inline to use.

at C:/Perl/lib/FindBin.pm line 0
INIT failed--call queue aborted, <DATA> line 1 <#1>
<F> An untrapped exception was raised while executing a CHECK, INIT, or routines has been prematurely ended.

Uncaught exception from user code:
Couldn't find an appropriate DIRECTORY for Inline to use.

at C:/Perl/lib/FindBin.pm line 0
INIT failed--call queue aborted, <DATA> line 1.