use strict;
use warnings;

opendir(DIR, ".");
my @files = readdir(DIR);
close(DIR);

foreach my $file (@files){
  `ps2epsi $file` if ($file =~ m/\.ps$/);

}