#!/usr/bin/perl -w # # This script illustrates how Devel::GraphVizProf could be used use strict; use Config; use IPC::Run qw(run); my $perl = $Config{'perlpath'}; my($in, $out, $err); run["$perl -I../lib -d:GraphVizProf primes_aux.pl > primes.dot; dot -Tpng primes.dot > primes.png"], \$in, \$out, \$err;