# this is in file Common_Code.pm
package Common_Code;
sub log_debug_message
{
    print "DEBUG: I see ", join(", ", @_), ".\n";
}

1;


##</code><code>##

#!/usr/bin/perl
use Common_Code;

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

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


##</code><code>##

DEBUG: I see red, blue, green.