#!max2:bin/perl -I/usr/lib/perl
#
# perl script to play a mod
#
#
#
$arglist = "";
$count = 0;
foreach (@ARGV) {
  $count = $count+1;
  if($count != 2) {
    $arglist = $arglist." Max3:music/mods/mod.$_";
  }
  else {
    $arglist = $arglist." dummy Max3:music/mods/mod.$_";
  }
}
print "/c/player PLAY $arglist\n";
`/c/player PLAY $arglist`;

