#!/usr/bin/perl

my $f=shift or die;
use strict;
use Data::Dumper;
use Exercise::Gen;
my $e=Exercise::Gen->new($f);
print Dumper($e);