#!/usr/bin/perl

# use utf8::all;
use dpl::tex;

my $f = shift;
dpl::tex::mkdicttex($f, "_.tex");