sub file_size($) { -s $_[0] }