=cut
use Getopt::Long ('GetOptions');
-use XML::Simple (qw(xml_in xml_out));
use Data::Dumper ();
our $InFile;
my $out_fh;
open ($in_fh, '-|', 'rrdtool', 'dump', $in_file) or die ("open (rrdtool): $!");
-# open ($out_fh, '|-', 'rrdtool', 'restore', '-', $out_file) or die ("open (rrdtool): $!");
- $out_fh = \*STDOUT;
+ open ($out_fh, '|-', 'rrdtool', 'restore', '-', $out_file) or die ("open (rrdtool): $!");
while (my $line = <$in_fh>)
{