Perlでアラームを短くプッって鳴らすにはどうすればいいの?