I don't think you want to use Perl for this task. If you want to use something you should look into "super user do" It allows you to hand out some root stuff.