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