Update perl-demo.pl