# F full output
    my $F = `dir /q "$filename"`;
    my @lines = split /\n/, $F;    # split output line by line

    # Owner line is on line 6 (Array element 5.)
    my $OL = $lines[5];
    unless ( $lines[5] ) {
        return "UNKNOWN\\Windows";
    }

    # The owner is the fourth word,
    my @words = split / +/, $OL;
    my $owner = $words[3];

    # Return to the directory we were called from.
    $self->change_directory($currentdir);

    # Return the owner.
    return $owner;