#!/usr/bin/perl
# replacement for broken stat -L -c %s
for (@ARGV) {
	print (((stat)[7]) . "\n");
}
