Perl script to become a certain user, with some verbose output to describe what's happening

becomeuser.pl

#!/usr/bin/perl
use POSIX qw(setuid getuid);

my $w = scalar getpwuid( $< );

if( $w eq 'root' ){
        print "Hey, you're root... let's try to become 'abuse'\n";

        # become user abuse
        my ($pwName, $pwCode, $pwUid, $pwGid, $pwQuota, $pwComment,
            $pwGcos, $pwHome, $pwLogprog) = getpwnam( "abuse" );

        unless( $pwUid ){
                die( "That user doesn't exist\n" );
        }

        print "Trying to become UID $pwUid\n";

        # Become abuse
        setuid( $pwUid );
} elsif ( $w ne 'abuse' ){
        die( "You must be abuse to run this\n" );
}

# Test who we are
$w = scalar getpwuid( $< );

print "Ok, now we are: " . $w . "\n";