If you want to see the lyrics for the song you're listening to, you might be interested in this script. It's a quick hack (I do only quick hacks :D), but it works at least for the most popular tracks.

It's a frontend for David Precious' Lyrics::Fetcher CPAN Module, that outputs the lyrics to a pager of your choice. To use it, you can map a function key to it, e.g. F1, select a track, hit it and hope that it's found:

ExecCommand1 = "/home/kb/bin/moc-lyrics --artist %r --title %t"

Here it is:

#!/usr/bin/perl 
#===============================================================================
#
#         FILE:  moc-lyrics.pl
#
#        USAGE:  ./moc-lyrics.pl 
#
#  DESCRIPTION:  Retrieves lyrics from some sites
#
#        NOTES:  Lyrics::Fetcher is free software by David Precious
#                (URL: http://search.cpan.org/~bigpresh/)
#       AUTHOR:  kb, <unixprog@gmail.com>
#      COMPANY:  "freelance" :-)
#      VERSION:  ---
#      CREATED:  12/02/2007 11:08:50 PM CET
#     REVISION:  $Id: moc-lyrics.pl 14 2008-04-04 17:46:38Z kb $
#===============================================================================

use strict;
use warnings;
use Lyrics::Fetcher;
use Encode;
use Getopt::Lazy
    'artist|a=s'  => 'Artist',
    'title|t=s'   => 'Song Title',
    -summary    => 'Looks up lyrics in LyricWiki',
    -usage      => '%c %o',
;
getopt();
exit usage unless ($artist && $title);

our $INDENT  = 4;      # Number of spaces for indentation (if any)
our $HEADING = 1;      # Print a Heading?
our $SOURCE  = 1;      # Show Source?
our $PAGER   = 'less'; # Pager to show lyrics in

our $lyrics;
our $source;
# Comment in/out what you want. order does matter.
# For more check out Lyrics::Fetcher's CPAN page
our @sources = (
    'LyricWiki',
    #'AZLyrics',
    #'AstraWeb',
    #'LyricsNet',
    #'LyricsTime',
);

sub get_lyrics {
    my $source = shift;
    return Lyrics::Fetcher->fetch( $artist, $title, $source );
}

# Catch lyrics for every source, until one yields a result
foreach my $site (@sources) {
    $lyrics = get_lyrics($source);
    if ($lyrics) {
        $source = $site;
        last;
    }
}

die "No lyrics found, sorry\n" unless $lyrics;
    
if ($HEADING) {
    my $header  = decode('utf8', "$artist - $title\n");
    $header .= "=" x length($header) . "\n";
    $lyrics = $header . $lyrics;
}

if ($SOURCE) {
    $lyrics .= "\n\n[ retrieved from $source ]\n";
}

if ($INDENT) {
    $lyrics = indent( $lyrics );
    sub indent {
        my $lyrics = shift;
        my $prepend = ' ' x $INDENT;
        my $temp;
        foreach( split( "\n", $lyrics ) ) {
            s/^/$prepend/;
            $temp .= $_ . "\n";
        }
        return $temp;
    }
}

open LESS, "|$PAGER";
print LESS $lyrics;
close LESS;

exit 1;