title: Insecure dependency in open while running with -T switch [PERL]
body: <p>I have a function like this:</p>
  <pre><code>open my $pipe, &quot;-|&quot;, '/usr/bin/externalcmd | /usr/bin/awk \'{print $2&quot; &quot;$4}\''
      || die &quot;can't fork command: $!&quot;;    
  
  while (&lt;$pipe&gt;) { 
      my ($if, $ip) = split;
  
      my $file = &quot;/some/file/$if&quot;;
      open (FILE, &quot;&gt;$file&quot;) || die &quot;can't open $file for $ip: $!&quot;;
      
      # ...
  
      close(FILE);
  }    
  close ($pipe);
  </code></pre>
  <p>It fails on <code>open</code> with the following error:</p>
  <p>Insecure dependency in open while running with -T switch at  line 1383, &lt;$pipe&gt; line 1.</p>
  <p>How can I fix this?</p>