########################################################### use strict; use warnings; use MIME::Base64; use Win32::Sound; my $sound = decode_base64(homer()); my $player = new Win32::Sound::WaveOut(12000, 8, 1); $player->Load($sound); $player->Write; 1 until $player->Status(); sub homer{ return <