#!/usr/bin/perl -w

$a='var/www/nut-cgi-bin';
$b='^var\/';

if ( $a =~ m/$b/ ) { print("match\n") }
else { print("no match\n") }

__END__

This is for testing the perl matching patterns in the include/exclude and
directory exclude files. set $a to the file name, set $b to the pattern, and
run this program and it will tell you whether or not it matches. Then adjust
the pattern until it does what you want.
