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

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