#!/usr/bin/perl

use strict;
use warnings;

print "Content-Type: text/plain\n\n";

eval{
  require Algorithm::Diff;
  print $INC{'Algorithm/Diff.pm'};
  1;
} or print $@;