...
while (my $path = <PATHS>) {
   # check if path component isn't in @safe_list ... 
}