beep.pl to HTML.

index -|- end

Generated: Mon Aug 16 14:14:03 2010 from beep.pl 2009/11/16 180.

#!C:/perl -w
my $count = 1;
if (@ARGV) {
    $count = $ARGV[0];
    if ($count < 1) {
        $count = 1;
    }
}
for (my $i = 0; $i < $count; $i++) {
    print "\7";
}

index -|- top

checked by tidy  Valid HTML 4.01 Transitional