Before actually getting to your problem, I forewarn you that, if your script was made to compile, you would have a major security flaw: For example, the video param could contain something like ; rm -rf / |, resulting in your script running the rather dangerous command rm -rf /. I strongly suggest turning on taint checking and carefully untainting all your inputs to avoid this type of problem.

If you had taken the time to check the error logs, or run your script thourgh perl -c (to check if it compiles), then you would have gotten a message starting like: Bareword found where operator expected at - line 10, near "$Create a" This error is a result of perl being confused since you typed $ where you probably meant #.

As a sidenote, I would reccommend you run your script with strict and warnings, which is likely to save you time in the future.

update: s/compiled/was made to compile/