BEGIN {
    my $homedir = ( getpwuid($>) )[7];
    my @user_include;
    foreach my $path (@INC) {
        if ( -d $homedir . '/perl' . $path ) {
            push @user_include, $homedir . '/perl' . $path;
        }
    }
    unshift @INC, @user_include;
}




//<!-- Begin --nick

// NOTE: If you use a ' add a slash before it like this \'

document.write('<span class="sidebarcontact"><span class="phonetitle">');

document.write('Your Name or Company');

document.write('</span><br>');

document.write('10901 Your Road Hwy. Suite 301<br>');

document.write('Chicago, IL 60060<br>');

document.write('PHONE: <span class="phonetitle">(555) 555-5555<br></span>');

document.write('FAX: &nbsp;&nbsp;<span class="phonetitle">(555) 555-5555<br></span>');

document.write('<br><A HREF="mailto:smoothwaxing@comcast.net" class="sidelink">smoothwaxing@comcast.net</a><br>');

document.write('</span>');


//  End -->