#!/bin/env perl

use strict;

use lib '../lib';
use SVG::Estimate;
use feature 'say';
use Data::Dumper;

my $svg = SVG::Estimate->new(file_path => $ARGV[0]);
my $hash = $svg->read_svg;

say Dumper($hash);
