Just recently got into the embedded perl capabilities of the mcl mud client (available at http://www.andreasen.org/mcl) some really decent stuff if you're into muds/mush'/moos. An example in the simplest way:

sub musik
        {
        $musfile = $_;
        if (open (MUSFILE, "$musfile"))
                {
                while (<MUSFILE>)
                        {
                        mcl_send("mus $_");
                        }
                }
        else
                {
                mcl_send("$musfile open failed.");
                exit;
                }
        }

This is all stored inside a script called musik.pl and allows you to spit music lyrics to the mud (on the music channel provided). It's not the most incredible thing I've seen in perl, but for my needs, one of the most useful.

Kickstart