while (defined ($file = <QUOTA1>)) {
$quota = <QUOTA1>;