#!/usr/bin/env perl
use File::Basename qw/dirname/;
use Cwd;
my $cgi_dir = Cwd::abs_path( dirname( __FILE__ ) );
my $exec_dir = Cwd::abs_path( Cwd::getcwd );
my $result = $cgi_dir eq $exec_dir ? "MATCH" : "DIFFERENT";
if ($result ne "MATCH") {
$result .= "\nCGI_DIR: $cgi_dir\nEXEC_DIR: $exec_dir\n";
}
print "Content-Type: text/plain\n\n", $result;