my life:

$ cat user.pl

#!/usr/bin/env perl -w

$foo = 0;

while ( 0 == 0 )
{
    printf "No one loves me!\n";
    if ( $foo == 5 )
    {
        printf "And Junkmail sucks too!\n";
        $foo = 0;
    }
    $foo++;
    sleep 2;
}

shadow mocks my code as inefficient. i say it’s legible. no one understands my pain.