#!/usr/bin/perl -w
#
# Backup the hardware configuration on machine supporting it
# (Bios configuration, Raid configuration, ...)
#
# For this to work you need lshw (http://lshw.ezix.org)
#

open(SYSTEM,"lshw -short -C system |") || die "Unable to execute lshw";