If you look three nodes down the line you'll find that this questioned has been answered, albeit, using slightly different terminology. Very good replies, and ideas of what not to do also...

#!/home/bbq/bin/perl
# Trust no1!