$ perl -Mstrict -Mwarnings -e '
use Smart::Comments;
for (1 .. 500) { ### Running...         done
    qx{ls -l > /dev/null 2>&1};
}
'