I dunno about Perl, but the following C code will work on any Windows OS that is based on the NT kernel...

while(1) {
    printf("\t\t\b\b\b");
}
[download]

I think it will even work if you are not Administrator. ;-)