Are you trying to embed that into an html file? You can't. This will also cause perl to drop dead:
<!-- use File::Copy qw(copy);-->
as it is a syntax error and will not allow the perl script to compile.
No , I have created .pl file and not the HTML and that is using VI editor...and the target files are PHP pages from which i have to remove the desire code
and when i run the code it gives me below errors :
Bareword "IN" not allowed while "strict subs" in use at close1.pl line 42.
Global symbol "$source" requires explicit package name at close1.pl line 47.
Global symbol "$source" requires explicit package name at close1.pl line 47.
Unmatched right curly bracket at close1.pl line 49, at end of line
syntax error at close1.pl line 49, near "}"
Execution of close1.pl aborted due to compilation errors.