From the level of code you presented here, I would recommend a book like "Learning Perl" from O'Reilly. It will cover much of the general programming experience that you seem to be lacking as well as all of the other concepts that you need to complete this task.

What follows are a few of the errors in your code.

• Why are you opening "Bad"? You never write to it.
• The while-loop will run forever. - see tachyon's reply.
• "Classified == unclassified" won't work since you are comparing a filehandle to something that doesn't exist.
• "print FH Good\n;" - You never opened the filehandle FH.
• Make sure you close() any files you open

update: Moved recommendations to the top.

--
IndyZ