Update perlside program.pl