-;# $Header: stat.pl,v 3.0 89/10/18 15:19:53 lwall Locked $
-
;# Usage:
+;# require 'stat.pl';
;# @ary = stat(foo);
;# $st_dev = @ary[$ST_DEV];
;#
$ST_BLOCKS = 12 + $[;
;# Usage:
+;# require 'stat.pl';
;# do Stat('foo'); # sets st_* as a side effect
;#
sub Stat {