Help for this page

Select Code to Download

Select or download this

open my $fh, '-|', 'symdev -sid 1234 list -noport -noreserve|find /I "
+not visible"';
while (<$fh>) {
   chomp;
   my @line = split(/\t/);
   [...]