use lib "$ENV{HOME}/public_html/PERL_TEST";

##</code><code>##

BEGIN
{
        my $home = (getpwuid($<))[7];   # Current user

        use lib "$home/public_html/PERL_TEST";
}

##</code><code>##

BEGIN
{
        my $user = 'someuser';
        my ($home) = (getpwnam($user))[7];  # Specific user

        die "Can't find user $user home directory\n" unless($home);

        use lib "$home/bin";

        print $home;
}