in reply to Re: Unlink doesn't work on first file
in thread Unlink doesn't work on first file

else{ print "<option value=\"$_\" selected> $_ \n"; $first=1; }
In that else statement, there was an extra space after the $_ in value,

print statements such as the one above are more readable (and easier to catch errors on) when you use the qq operator (just pick a delimiter that isn't in your string):

print qq!<option value="$_" selected> $_ \n!;