set originalFile to do shell script "lsof |grep -i QTP| grep iTunes|head -1|awk '{ print $9 }'"
if length of originalFile is greater than 0 then
set newFile to POSIX path of (choose file name with prompt "Save movie as:" default name "iTunes Video.mov")
if length of newFile is greater than 0 then
if newFile does not end with ".mov" then set newFile to newFile & ".mov"
do shell script "cp -v '" & originalFile & "' '" & newFile & "'"
end if
else
display dialog "No movie found." buttons {"OK"} default button "OK"
end if