use strict;
use warnings;
use Audio::Beep;

beep (1244, 220);
beep (1244, 220);
beep (1244, 220);
beep (1760, 220);
beep (1244, 220);