#!/usr/bin/perl -w
use strict;

my $lsof = "/usr/sbin/lsof -u 'root'";  # Change this to suit

open DATA, "$lsof|" or die "Could not open $lsof:$!\n";

while (<DATA>) {
    print;
}

close DATA;