Update perlfinal.pl