#!/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; die "X - " . $file{'receipt', 'file'};