Created the Perl directory and added a script