#!/usr/bin/perl

use strict;
use warnings;
use Fcntl;

#my $mpc = 'mpc';
#my $out2 = out();
#print ("Now Playing: $out2\n");
return 1;
sub MPCout {
	my $mpc = 'mpc';
	my $buffer;
	system "$mpc | grep -m 1 [a-zA-Z] \> /tmp/MPCLoud";
	open(FILE, "< /tmp/MPCLoud")	|| die $!;
	
	sysread(FILE,$buffer,1024);
	return `$mpc | grep -m 1 [a-zA-Z]`;
}