fix(tools): set script source in anvil-access-module

tools/anvil-access-module

@@ -524,10 +524,12 @@ else
 	my $script_file_handle;
 
 	eval {
-		if ($script_file =~ /^#!SET!#|-$/)
+		# TODO: make this script read piped input
-		{
+
-			$script_file = "-";
+		$script_file = "-" if ($script_file =~ /^#!SET!#$/);
 
+		if ($script_file =~ /^-$/)
+		{
 			open($script_file_handle, $script_file);
 		}
 		else