perl -CS -E'say v74.65.80.72'

I wanted to grok how deeply I didn't understand what this was doing, so I also made some modifications:

while true; do perl -CS -E 'say eval ( sprintf "v%s", join ".", map { int rand 1024 } ( 0 .. (int rand 24) + 8 ) )'; sleep 1; done

submitted by /u/smutaduck
[link] [comments]