#!/usr//bin/perl

use strict;
use Data::Dumper;
my %Config =(   PPingPath => '/home/dean/pping-v1.37/pping ',
                PPingOptions => '-t 15 -q |',
                TraceRTPath => '/usr/sbin/traceroute',
                TRHops => '-m 3 | ',
                ExternalTarget => q('www.microsoft.com -p 80', 'www.netscape.com -p 80', 'www.silverhand.co.uk -p 80',
 'www.demon.net -p 80','www.whitehouse.org -p 80'),
                Hosts => q('www.netscape.come -p 80', 'www.microsoft.com -p 80') );
my @keys = (keys %Config);
my @values = (values %Config);
my $Dumperl1 = Data::Dumper->new( \@values, \@keys );
print $Dumperl1->Dump();
exit;


##</code><code>##

my $Dumperl1 = Data::Dumper->new(\(keys %Config), \(values %Config));

##</code><code>##

$Hosts = '\'www.netscape.come -p 80\', \'www.microsoft.com -p 80\'';
$ExternalTarget = '\'www.microsoft.com -p 80\', \'www.netscape.com -p 80\', \'www.silverhand.co.uk -p 80\', \'www.demon.net -p 80\',\'www.whitehouse.org -p 80\'';
$TraceRTPath = '/usr/sbin/traceroute';
$PPingOptions = '-t 15 -q |';
$TRHops = '-m 3 | ';
$PPingPath = '/home/dean/pping-v1.37/pping ';