Select Code to Download

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

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

BEGIN
{
        my $user = 'someuser';
...

        print $home;
}