my $filename = $ARGV[0];
                                                                                 
my (
    $dev,  $ino,   $mode,  $nlink, $uid,     $gid, $rdev,
    $size, $atime, $mtime, $ctime, $blksize, $blocks
  )
  = stat($filename);
                                                                                 
print "UID: $uid\nGID:  $gid\n";