use Win32::OLE;

my $iTunes = Win32::OLE->new("iTunes.Application") or die $!;
my $tracks = $iTunes->LibraryPlaylist->Tracks;
my $numTracks = $tracks->Count;

my $savedArt = 0;

while ($savedArt == 0) {
   my $currTrack = $tracks->Item(int(rand($numTracks+1)));
   if ( $currTrack->Artwork->Count > 0 ) {
   my $coverArt = $currTrack->Artwork->Item(1);
   my $filename = 'C:\itunes_cover.jpg';
   $coverArt->SaveArtworkToFile($filename);
   $savedArt = 1;
   }
}