1 #!/usr/bin/perl
      2 
      3 use strict;
      4 use warnings;
      5 
      6 my @output = qx(/sbin/ifconfig -a 2>&1);
      7 foreach(@output) {
      8     print $_;
      9 }