wine -- mididir.exe -length

##</code><code>##

Y:\ZLIG~MY.MID:  (33 kb, format 1, 11 tracks, GS, 3:00)

##</code><code>##

#!/usr/bin/perl
my $midifile = shift;
system("wine -- midifade -songtime $midifile");

##</code><code>##

song: units 0 -  34475   time 0:00.000000 - 2:59.545800