Constants are inherited, actually - but you have to use method calls:

use strict;

package Const;

use constant LOGIN => 'user';

package Pac;

use vars '@ISA';
push @ISA, 'Const';

package Main;

print Pac->LOGIN, "\n";
# user
[download]