my ($fh, $tmpname) = tempfile("stt_XXXXXX", DIR => $tmpdir, UNLINK => 1); print "RECORD FILE $tmpname wav \"$intkey\" \"$abs_timeout\" $beep \"$silence\"\n"; @result = checkresponse(); die "$name Failed to record file, aborting...\n" if ($result[0] == -1); if ($debug) { warn "$name Recording Format: $format, Rate: $samplerate Hz, ", "Language: $language, ", "$silence, Interrupt keys: $intkey, Beep: $beep\n"; } my $response = $ua->get("http://127.0.0.1:8000/speech_to_text/?file_path=$tmpname.wav");