I won't include all of the (mostly mundane) code,
but I recently finished a Perl project that provided
control logic for a robotic laser welder...
What is a robotic laser welder? In this case it's a four
axis robot for welding small items with a 14 joule
laser. The main controller is an Dell 1U rackmount, running
OpenBSD, talking to a motion/IO controller.
In the spirit of recursion though, this also made for a
"Cool Uses for Cool Uses for Perl", as we tested the entire
device (sans laser-light-show) as a speaker for an electric
bass guitar... check out
this link to see my buddy Xam playing it as a $ 6-figure
amplifier. (Explanation - By controlling position of the
axes based on an amplified bass guitar input, we made the
entire device reverberate throughout the shop. The video has
a decent audio track. We also tried hooking it to a Diamond Rio,
not shown, but the frequency response range was much better
suited to the bass.)
If you're disposed to checking it out, enjoy. I certainly
enjoyed using Perl for this cool application.