perl -d:CallTrace i-Mage.pl 2> trace.txt

##</code><code>##


   my @array = qw(perl -d:CallTrace i-Mage.pl);
   my $child_pid = open3(
      '<&STDIN',
      ">trace.txt",
      *CHILD_ERROR,
      @array
   );