is there any reason why this wouldn't work then

#! /usr/bin/perl

use Digest::MD5 qw(md5 md5_hex md5_base64);

my $password = 'hello';

my $encrpass = md5_hex($password);


system "adduser -p $encrpass bob";
[download]

I know its dodgy running system commands like that, but i stress i just knocked this up real quick to see if it would work.

When i try to log in as bob with the pass of hello, it won't let me in