Bored? Want to write a quick perl program for me?

I'm going to have a go myself but it's ages since I've done any of this and it's needed in a hurry so if anyone has an idea.

EDIT: Someone has done it with command line stuff.

( Putting a DNA sequence name at the start of a file )