#!/usr/local/bin/perl

use strict ;
use warnings ;

use Data::Dumper ;

use Template::Simple ;
use CMS::Simple::Parse ;
use File::Slurp ;



my $cont_file = shift || 'slides.cont' ;

my $cont_text = read_file( $cont_file ) ;

my $content = CMS::Simple::Parse::parse_content( $cont_text ) ;

print Dumper $content ;
