perl check-size.pl ./data.mixed
$VAR1 = {
          '-s' => 282,
          'length' => 226,
          'read' => 226,
          'tr' => 226
        };