$ perl filter_snapshot.pl Snapshot.pm > New_Snapshot.pm