our $SM_UNK_REC = 1;
our $SM_HDR_REC = 2;
our $SM_TTL_REC = 3;

##</code><code>##

$stat = &slib::ABC($slib::SM_HDR_REC);

##</code><code>##

package slib;
use Exporter;
our @ISA = qw/Exporter/;
our @EXPORT_OK = qw/ABC $SM_UNK_REC $SM_HDR_REC $SM_TTL_REC/;

...

##</code><code>##

use slib qw/ABC $SM_UNK_REC $SM_HDR_REC $SM_TTL_REC/;
$stat = ABC(SM_HDR_REC);