perl-example.stp