If a machine makes noises that indicate a fault (e.g. certain BIOS beep codes) or makes a noise outwith of it's normal operation then that's something you can work towards detecting. Your post lacks any details, as yet has no relation to Perl. Tutorials->PerlMonks for the Absolute Beginner/How do I post a question effectively?.