#!/usr/bin/perl

use TeX::DVI::Parse;
use Getopt::Std;

getopts('d');

my $dvi = TeX::DVI::Print->new($ARGV[0]) || die "Can't open $ARGV[0]";
$dvi->parse(-nodate => $opt_d);

