#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use strict; use warnings; use lib ( "$ENV{'DOCUMENT_ROOT'}/../lib", "$ENV{'DOCUMENT_ROOT'}/../../prod/lib" ); use Bod::CRM; use Site::Utils; use Data::Dumper; print "Content-type: text/plain\n\n"; print Dumper $file{'receipt', 'file'}; exit;