#!/usr/local/bin/perlプロバイダがPerlを置いている場所を記述します。
$sound="sound.mld";着メロは拡張子が.mldのファイルになります。
$size = -s $sound; open(IN, $sound); binmode(IN); read(IN, $buf, $size); close(IN);ファイルからデータを読み込んでいます。
printf("Content-type:application/x-mld\n"); printf("Content-length:$size\n\n");拡張子が.mldというファイルのContent-typeはapplication/x-mldになります。
binmode(STDOUT); print $buf;データを出力しています。
exit;プログラムを終了させます。