use 5.006;
use strict;
use warnings;
use lib "$ENV{'COPRA_HOME'}\\printmethod\\common\\scripts";
use functions;


$ordername = "OJ";
$customer = "mffm";

...