#!/usr/bin/perl

use dpl::tei;

my $f = shift;
dpl::tei::mktei($f);