first working script wk1.pl