#!/usr/bin/perl

use Parse::pLex;
use Data::Dumper;

my $file = shift;

my $parsed = Parse::pLex->parse($file);

print Dumper($parsed);