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;
}