#!/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;