path: stfl_0.22-6/perl5/example.pl
	my $filename = $files[$1];
	$filename =~ s/'/'\\''/g;
	if (system("pidof xmms > /dev/null") != 0) {
		system("xmms -p '$filename' > /dev/null 2>&1 &");
	} else {