package functions;
use strict;
use watnings;
use Exporter;
our @ISA =qw( Exporter );
our @EXPORT=qw(log_this getPropertyFromFile $COPRA_HOME %configValue $customer $ordername);

use PDF::API2;
use File::Basename;

my $id = __PACKAGE__;
our $COPRA_HOME = $ENV{'COPRA_HOME'};
our %configValue;
our $customer;
our $ordername;

...

1;

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


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

...