Select Code to Download

 wine -- mididir.exe -length

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

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

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