#!./perl
	@a = stat(foo);
	print join(' ', @a), "\n";
