#!/usr/bin/perl
use Time::HiRes qw(sleep);
# open BEEP, ">/dev/beep" or die $!;
# select BEEP;
$| = 1;
sleep($_), print "\a" for (0, 
    0.45, 0.15, 0.15, 0.15,
    0.45, 0.15, 0.15, 0.15,
    0.45, 0.45, 
    0.45, 0.15, 0.15, 0.15,
    0.45, 0.15, 0.15, 0.15,
    0.15, 0.15, 0.15, 0.15, 0.15, 0.15);