Collect BibTeX entries from LaTeX aux file from BibSonomy

Here's a little script that collects all the BibTeX entries referenced in a particular LaTeX file. Usage is:

grabbib.pl [username] [LaTeX aux file name] > bibtexfile.bib