#!/usr/bin/perl -w
use strict;

system('start perl -e "sleep 5; print qq(\007)"');
print "Before the beep ...\n";