my $someVar = "someValue";
sub get_cnst {
    return $someVar;
}