my $name = "../broken.pl";
open(FILE, ">review/$name") || die "Can't write to review/$name!\n";
print FILE "Hi";
close FILE;