#!/usr/bin/perl -w
#pass a directory to script

use strict;

my $ownergroup=`ls -ld $ARGV[0]\| awk '{print \$3":"\$4}'`;

print $ownergroup;