If $dir isn't ".", then this won't work. unlink($file) tries to delete $file from your current directory, not from whatever $dir is.

unlink("$dir/$file");
[download]

If you want to port to platforms that don't use "/" as the direcotry separator, I suggest lookin at how MakeMaker handles this.