if (-e $basename)
{
$attrs = stat($basename);
my $fileOwnerID = $attrs->uid;
$fileOwner = (getpwuid $fileOwnerID)[0];
#$fileOwner = sprintf "%s",stat($basename)->uid;
my $groupID = $attrs->gid;
$groupName = (getgrgid $groupID)[0];
}