use Inline C => Config => AUTO_WRAP => ENABLE;
use Inline C => Config => LIBS => '-L"C:\Program Files\Common Files\Product\4.1\dptcpiphi.dll" -ldptcpip';

##</code><code>##

#!/usr/bin/perl -w

use Inline C => Config => AUTO_WRAP => ENABLE;
use Inline C => Config => LIBS => '-L"C:\Program Files\Common Files\Product\4.1\dptcpiphi.dll" -ldptcpip';

use Inline C => DATA ;
use strict;
my $DPbuff = "statusbuffer";
my $status = MyGetCtrlStatus('0x14','localhost','1703',$DPbuff);

print "$status\n";

__END__
__C__
int MyGetCtrlStatus(char ShiftCmd, char pHostName, char uPortNum, char pCtrlStatus) {
	char JobInfo;
	int status = DPGetCtrlStatus(ShiftCmd, pHostName, uPortNum, pCtrlStatus);
	printf ("Running...\n");
	return pHostName;
}	

##</code><code>##

Test_pl_5261.o:Test_pl_5261.c:(.text+0x27): undefined reference to `DPGetCtrlStatus'
collect2: ld returned 1 exit status
dmake.exe:  Error code 129, while making 'blib\arch\auto\Test_pl_5261\Test_pl_5261.dll'