use Digest::SHA qw/sha512_base64/;
$shadow = '$6$'.$salt.'$'.sha512_base64("$salt$root_pass");