$ ./scr.pl 
Global symbol "$dirtoget" requires explicit package name at ./scr.pl line 10.
Global symbol "$dirwrite" requires explicit package name at ./scr.pl line 11.
Global symbol "$dirtoget" requires explicit package name at ./scr.pl line 12.
Global symbol "@thefiles" requires explicit package name at ./scr.pl line 13.
Global symbol "$f" requires explicit package name at ./scr.pl line 15.
Global symbol "@thefiles" requires explicit package name at ./scr.pl line 15.
Global symbol "$f" requires explicit package name at ./scr.pl line 17.
Global symbol "$f" requires explicit package name at ./scr.pl line 17.
Global symbol "$fr" requires explicit package name at ./scr.pl line 19.
Global symbol "$dirtoget" requires explicit package name at ./scr.pl line 19.
Global symbol "$f" requires explicit package name at ./scr.pl line 19.
Global symbol "$fr" requires explicit package name at ./scr.pl line 20.
Global symbol "$f" requires explicit package name at ./scr.pl line 21.
Global symbol "$fw" requires explicit package name at ./scr.pl line 22.
Global symbol "$dirwrite" requires explicit package name at ./scr.pl line 22.
Global symbol "$f" requires explicit package name at ./scr.pl line 22.
Global symbol "$fw" requires explicit package name at ./scr.pl line 24.
Global symbol "$x" requires explicit package name at ./scr.pl line 26.
Global symbol "$line" requires explicit package name at ./scr.pl line 27.
Global symbol "$x" requires explicit package name at ./scr.pl line 27.
Global symbol "$line" requires explicit package name at ./scr.pl line 27.
Missing right curly or square bracket at ./scr.pl line 28, at end of line