perl: added unittests for left/down/up/right, fails now