#!/usr/bin/perl

use FindBin;
use Cwd;

print "Content-type: text/plain\n\n";
print Cwd::getcwd," -- ",$FindBin::RealBin,"\n<br />";