in reply to Newbee to Perl and the error

around line 46 you have 
   if ($FSUSED >= 90)
      $FSUSED = "*$FSUSED*";
   }

[download]
you're missing a left brace

In Section Seekers of Perl Wisdom