Test - add use strict/use warnings and fix wrong assigment, so test now can be ran with perl -W