A simple perl scrobbler