use win32::RASE;
$hrasconn = win32::RASE::RasDial("test");
$status = win32::RASE::RasGetConnectStatus($hrasconn);
print $status; 

##</code><code>##

Undefined subroutine &win32::RASE::RasDial called at C:\scripts\diatest.pl line 2, <DATA> line 164.

##</code><code>##

perl -MWin32::RASE -e "RasDial(test) or print Win32::RASE::FormatMessage"