VMS::System provides access to system and cluster information.
use VMS::System;
@NodeList = VMS::System::node_list();
$SysInfo = VMS::System::get_all_sys_info_items([nodename]);
$archtype = $SysInfo->{ARCH_TYPE};
$archtype = VMS::System::get_one_sys_info_item("ARCH_TYPE"[, nodename]);
$hashref = VMS::System::decode_sys_info_bitmap("ARCHFLAGS", Bitmap);
@InfoNames = VMS::System::sys_info_names([nodename]);
tie %SysInfohash, VMS::System[, nodename];
$diolm = $SysInfohash{ARCH_TYPE};
$SysInfoobj = new VMS::System [nodename];
$archtype = $SysInfoobj->one_info("ARCH_TYPE");
$hashref = $SysInfoobj->all_info();