please see screen print when i run this script

C:\scripts>new2.pl
Backslash found where operator expected at C:\scripts\new2.pl line 47,
+ near "(my
 $serverKey = $server) =~ s/\"
  (Might be a runaway multi-line // string starting on line 38)
        (Missing operator before \?)
Global symbol "$serverKey" requires explicit package name at C:\script
+s\new2.pl
line 38.
syntax error at C:\scripts\new2.pl line 47, near "(my $serverKey = $se
+rver) =~ s
/\"
Global symbol "$serverKey" requires explicit package name at C:\script
+s\new2.pl
line 49.
Global symbol "$serverKey" requires explicit package name at C:\script
+s\new2.pl
line 57.
Global symbol "$serverKey" requires explicit package name at C:\script
+s\new2.pl
line 58.
Global symbol "$serverKey" requires explicit package name at C:\script
+s\new2.pl
line 58.
Execution of C:\scripts\new2.pl aborted due to compilation errors.
[download]