anchor.diff:      ok.
   
   connect_to_remote_node(ParsedOptions) ->
  -    RemoteNode = proplists:get_value(remote, ParsedOptions, "erlang@localhost"),
  +    RemoteNode = proplists:get_value(remote, ParsedOptions, "erlang@localhost.localdomain"),
       case net_adm:ping(list_to_atom(RemoteNode)) of
           pong ->
               ok;
  
positive.code: 
  collect_stats(ParsedOptions) ->
      Scheme = proplists:get_value(scheme, ParsedOptions, element(2, inet:gethostname()) ++ ".erlang"),
      RemoteNode = proplists:get_value(remote, ParsedOptions, "erlang@localhost"),
      {Mega, Secs, _Micro} = erlang:now(),
      Timestamp = Mega * 1000000 + Secs,
      case rpc:call(list_to_atom(RemoteNode), erlang, memory, []) of
          {badrpc, Reason} ->
              io:format(standard_error, "Could not fetch remote metrics with reason: ~p", [Reason]);
          MemoryStats when is_list(MemoryStats) ->
              lists:foreach(fun({Key, Value}) ->
                  ActualKey = Scheme ++ ".memory." ++ atom_to_list(Key),
                  io:format("~s ~B ~B~n", [ActualKey, Value, Timestamp])
              end, MemoryStats)
      end,
      case rpc:call(list_to_atom(RemoteNode), erlang, processes, []) of
          {badrpc, NReason} ->
              io:format(standard_error, "Could not fetch remote metrics with reason: ~p", [NReason]);
          Processes when is_list(Processes) ->
              io:format("~s ~B ~B~n", [Scheme ++ ".processes", erlang:length(Processes), Timestamp])
      end,
  
      ok.
  
negative.code:             parse_options(NewOptions, [{remote, Remote}|ParsedOptions]);
          "-h" ->
              usage(),
              halt(0);
          _ ->
              usage(),
              io:format(standard_error, "Invalid option specified!~n", []),
  