#!/usr/athena/bin/perl

open (FILE, "$ENV{'HOME'}/.crypt-table");

while (<FILE>) {
  system("/bin/athena/fs" , "flush", $1) if /^.*:\s*(.*)$/ ;
}