Send commands to a connected LCD over serial

sendLCDcommand.pl

#!/usr/bin/perl -w

use strict;
use warnings;

chomp(my $status = `osascript -e 'tell application "iTunes" to player state as string'`);

if ($status eq 'playing')
{
	chomp(my $artist = `osascript -e 'tell application "iTunes" to artist of current track as string'`);
	chomp(my $track = `osascript -e 'tell application "iTunes" to name of current track as string'`);
	chomp(my $album = `osascript -e 'tell application "iTunes" to album of current track as string'`);

	

	print "\1$track\2$artist\n\0";
} else
{
	print "\1Stopped\2\n\0";
}