http://www.perlmonks.org?node_id=174783


in reply to Muse - Personal Interlinked Encyclopedia Builder

# no .. / ` \
die "no .. \/ \` \\ allowed in node name.\n" if ($node =~ /(\.\.|\/|\`
+|\\)/);

[download]
I strongly reccomend adding this snippet to this program if you are placing this on the public internet. Do not evaluate $node and run an open statement without doing more sanity checking on whats being sent your way. Making a node as ../data/test would work. With this, it would get shot down before the open call.

In Section Code Catacombs