use warnings;
use diagnostics;
use strict;
use Shell::Source;
use Shell;
my $action="\'Anything\'";
my $user="RealUser";
my $sh = Shell->new;
say "$user";
say "$action ";
print $sh->sudo("su -l - $user --command $action");