#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use feature 'say';
use IPC::Run qw( run timeout );

sub rename_account {
    my ($in, $out, $err);
    my ( $name , $nname ) = ( @_ );
    my @usename = ("usermod", "-l", "$nname", "$name");
    run \@usename, \$in, \$out, \$err, timeout( 10 ) or die "Error: $?";
    say "OUT: $out" if $out;
    say "Error: $err" if $err;

    my @changeHomeDir = ("usermod", "-d", "/home/$nname", "-m", "$nname");
    run \@changeHomeDir, \$in, \$out, \$err, timeout( 10 ) or die "Error: $?";
    say "OUT: $out" if $out;
    say "Error: $err" if $err;

    my @homeDir = ("ls", "-la", "/home");
    run \@homeDir, \$in, \$out, \$err, timeout( 10 ) or die "Error: $?";
    my @data = split "\n", $out;
    return \@data if @data;
    return "Error: $err" if $err;
}

# print Dumper rename_account("monk", "testuser");
print Dumper rename_account("testuser", "monk");

__END__

$ sudo perl test.pl
$VAR1 = [
          'total 12',
          'drwxr-xr-x  4 root   root     4096 Mar 22 10:46 .',
          'drwxr-xr-x 24 root   root     4096 Mar  7 15:04 ..',
          'drwxr-xr-x  2 monk   testuser 4096 Mar 22 10:43 monk',
        ];