use strict;
  use Win32::RASE;

  my (%connections, $entry, $hrasconn);
  
  %connections = RasEnumConnections();
  foreach $entry (keys %connections) {
    my $status;
    $hrasconn = $connections{$entry};
    $status = RasGetConnectStatus( $hrasconn );
    if ($status == RASCS_DeviceConnected) {
      print "Computer is online via $entry\n";
    };
  };