Handle with stopword path

.github/scripts/pod_spell_check.t

@@ -1,13 +1,22 @@
 use strict;
 use warnings;
-use Test::More;
 
+use Test::More;
 use Test::Spelling;
 
-open(FILE, "<", "stopwords.t");
-add_stopwords(<FILE>);
+if (!@ARGV) {
+    die "Missing perl file to check.";
+}
 
-set_spell_cmd('hunspell -l');
-all_pod_files_spelling_ok( $ARGV[0]);
+my $stopword_filename='.github/scripts/stopwords.t';
+if(defined($ARGV[1])){
+    $stopword_filename=$ARGV[1];
+}
+open(FILE, "<", $stopword_filename)
+    or die "Could not open $stopword_filename";
+printf("stopword file use : ".$stopword_filename." \n");
 
+add_stopwords(<FILE>);
+set_spell_cmd('hunspell -l');
+all_pod_files_spelling_ok($ARGV[0]);
 close(FILE);