Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 6 lines (5 sloc) 109 Bytes
#!/usr/bin/env perl
use Mac::iTunes;
my $itunes = Mac::iTunes->controller;
$itunes->activate;
$itunes->play;