#!/usr/local/bin/perl
foreach(@ARGV) {
    $command = $command . " " . $_;
}
 
$command = substr($command, 1);
#print $command;
system("mplayer \"music/$command\"");