What's wrong with sticking this (possibly in a BEGIN block) at the top of each file, and never having to worry about it again?

my $code_status;
if ( -f './status-devel' )
{
    $code_status = 'devel';
}
else
{
    $code_status = 'stable';
} 
use lib "/var/www/intranet/${code_status}/lib";
[download]

Update: Fixed the variable in the path per chromatic's good catch, and replaced "an INIT block" with "a BEGIN block", since that's what it's called in Perl. ;-)

Christopher E. Stith
use coffee;