How can I tell if I'm running in a VMWARE virtual machine (from linux)?

I have a VMWARE ESX server. I have Redhat VMs running on that server. I need a way of programatically testing if I'm running in a VM. Ideally, I'd like to know how to do this from Perl.

Solution

See the answer to "Detect virtualized OS from an application?".

I'm not able to execute a Perl script inside Ajax
koi8-r text is shown incorrectly
How do I download a file with WWW::Mechanize after it submits a form?
How to stop array sort in Perl
specifying the right perl version for git
Two versions of Perl in Mac OS X?
Perl DBI with Mariadb Maxscale
Can't figure out multi-dimensional Perl hash references: Not a HASH reference
Why is "kill" is not exiting a thread immediately?
Net::OpenSSH with Expect to connect to router
Can't locate new.pm in @INC
Parsing broken multipart/mixed email
How can I print a table with multi-line strings using the Text::Table module?
How do I output a text table in Perl?
Is there a bash-perl shortcut to count the number of matches in each line?
Calculate date of birth from age at specific date [MySQL or Perl]
bash perl run argument as command
Match all files in directory and index files from first level children
Print HTML Table from an array with condition with Perl CGI
Why do I get ARRAY(0x9c90818) instead of the items in the array in Perl?
Perl regex for street number street name, at least, one digit, one upper case letter, least two lowercase and one whitespace
File::Copy vs. rename
Using Perl's 'rename' to pad filenames with leading zeros
Swap filenames backwards
Expect module: end of string is correctly matched, but characters remain in 'after' part, causing next expect to continue prematurely
Is there a Perl equivalent to Python's `if __name__ == '__main__'`?
How can I add variables into my Perl one-liner?
Parsing a file by summing up different columns of each row separated by blank line
How to prevent automatic handling of newlines killing performance in Perl text output?
How to pass both mandatory and optional command line arguments to perl script?