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