my perl playground...