[matt@resuna ~]$ perl -le 'print $passwd = (getpwnam("root"))[1]'
*
[matt@resuna ~]$ su
Password:
resuna# perl -le 'print $passwd = (getpwnam("root"))[1]'
$2a$61$8DF//jVKvvTJ1zimSj82fdsFH/.z64H3vHlcp1FqhEOJ9HBBSiPq6