Perl Stuff :S

Hi! Has anyone got five minutes to spare to be able to tell me how to get a list of files in the current directory with <option></option> around each file? So far I've written; print "<select name=file><option>"; print `ls\n`; print "</option></select>"; But naturally, I need the <option> bit around each filename! Please help! Dug Stokes