Applescript beep not beeping via command line or using the perl cpan module

If your beep isn't beeping, it's because it get's cut off. To prevent this I added a sleep. So in applescript it looks like
beep
do shell script "/bin/sleep 1"

And in your perl function:
RunAppleScript(qq(beep\ndo shell script "/bin/sleep 1"))