#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use JCAMP::DX;

$Data::Dumper::Sortkeys = 1;
$Data::Dumper::Indent   = 1;

for my $filename (@ARGV) {
    print Dumper( JCAMP::DX->new_from_file( $filename ) );
}
