#!/usr/bin/perl
use strict;
use CGI;
my $q = new CGI;

use Cwd;
$dir = cwd;

print $q->header('text/plain'),
      $dir;
exit(0);

##</code><code>##

open OUT, ">/path/to/bg.cnt" or die "can't open bg.cnt for writing";

##</code><code>##

use CGI::Carp 'fatalsToBrowser'