#!/usr/bin/perl

use dpl::tex;

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