sub register_vm
{
  my ($config) = @_;

  my $connect_params = VMware::VmPerl::ConnectParams::new();

  # Establish a persistent connection with server
  my $server = VMware::VmPerl::Server::new();
  if (!$server->connect($connect_params)) 
  {
    my ($error_number, $error_string) = $server>get_last_error();
    die "Could not connect to server: Error $error_number: $error_string\n";
  }

  if (!$server->register_vm($config))
  {
    my ($error_number, $error_string) = $server>get_last_error();
   die "Could not register of VM $config: Error $error_number: $error_string\n";
  }

  undef $server;
}