Perl script to create new post