Here I will post perl stuff that I've done while learning perl.