#!/usr/bin/perl
use Common_Code;

my( $a1, $b2, $c3 ) = qw( red blue green );

Common_Code::log_debug_message( $a1, $b2, $c3 );