#!/bin/sh
: ${dvd_dev:=`dvd-device`}
lsdvd "$dvd_dev" | perl -ne '/Title: (\d+), Length: (\d+):(\d+):(\d+)\.(\d+)/ and $2*3600+$3*60+$4 != 0 and print $1+0, "\n";'