sub getPlatform {
    my $os = `uname`;
    chomp($os);

    for ($os) {
        /HP-UX/ and do {
            return('HP');
        };

        /Linux/ and do {
            my $hardware = `uname -m`;
            chomp($hardware);

            for ($hardware) {
                /ppc/    and return('PPC');
                /ppc64/  and return('PPC');
                /i686/   and return('INTEL');
                /x86_64/ and return('INTEL');

                errorMsg("Could not determine platform type for '$hardware'");
            }
        };
    }
}