########################################################### use warnings; use strict; use MIME::Base64; my $filename = shift; open my $file, '<', $filename or die $!; my $data; while (sysread($file, $data, 57 * 17)) { print encode_base64($data); } ########################################################### ##

##

###########################################################
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 <