#!/usr/local/bin/perl

@filelist = `ls -1 9911*.ps.gz`;

foreach $file (@filelist) {
   chop $file;
   print "$file\n";
   system ("gv $file");
   }

exit 0;