#!/usr/bin/perl
$|++;
print "enter someuser password at the prompt below:$/";
$i=`su someuser -c "whoami"`;
print $i;