Create PerlText.pl