#!/usr/bin/perl
use strict;
use warnings;
my $text = $ENV{OPC_MSG_TEXT};
my $code = $ENV{OPC_MSG_CODE};
...;