demo code for perl study