#!/usr/bin/perl -w use strict; use Config; use IPC::Run qw(run); $| = 1; my $perl = $Config{'perlpath'}; print "Attempting to make all images...\n"; my($in, $out, $err); foreach my $file (sort <*.pl>) { next if $file =~ /make_all\.pl/; next if $file =~ /primes_aux\.pl/; next if $file =~ /redcarpet\.pl/; next if $file =~ /ppmgraph\.pl/; print " Running $file..."; run [$perl, "./$file"], \$in, \$out, \$err; # throw the output away print "done\n"; } print "All images made.\n";