---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" ping.pl
$VAR1 = {
          'device8-PPm' => [
                             '596% /var',
                             '688% /',
                             '100% Interleaved',
                             'device2',
                             'Tue Sep  5 10:26:44 GMT 2005'
                           ],
          'device5-PPP' => [
                             '156% /var',
                             '138% /',
                             '131% Interleaved',
                             'device1',
                             'Tue Sep  9 11:26:44 ist 2005'
                           ],
          'device1' => [
                         '56% /var',
                         '38% /',
                         '31% Interleaved',
                         'device1',
                         'Tue Sep  9 11:26:44 ist 2005'
                       ],
          'device2' => [
                         '96% /var',
                         '88% /',
                         '100% Interleaved',
                         'device2',
                         'Tue Sep  5 10:26:44 GMT 2005'
                       ]
        };

> Terminated with exit code 0.