#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

print "Remote 1\n";
open (NETZ1, "ssh root\@mirror \'/sbin/ifconfigx\' |");
print "RC= $?\n";
while (my $zeile = <NETZ1>) {
  print $zeile;
}
close (NETZ1);

print "-------------------------------------\n";

print "Remote 2\n";
open (NETZ2, "ssh root\@mirror \'/sbin/ifconfig\' |");
print "RC= $?\n";
while (my $zeile = <NETZ2>) {
  print $zeile;
}
close (NETZ2);

print "-------------------------------------\n";

print "Lokal\n";
open (NETZ, "/sbin/ifconfiX |");
print "RC= $?\n";
while (my $zeile = <NETZ>) {
  print $zeile;
}
close (NETZ);