Select Code to Download

Can't call method "Content" on an undefined value at c:\scripts\sr.pl 
+line 19.

#!/perl/bin
    use strict;
...
# close word file
$doc->Close();
$word->Quit();