“#!/usr/bin/perl
while ($panwaterlevel > 10) { wait(1000); }
sprint(”Dan! Come fix these noodles!”);”

I made a device that does this in high school electronics.

Well, except instead of saying Dan!, it went “Ping!”.