254791 ObexPushd parse

Hello, Using 'obexpushd -B' enables me to receive files from bluetooth and with the -s parameter i can send them to a script. What i need is a simple perl script to do the following to the received data that is fed to stdin: - Save the MAC address of the sending device (00:00:00:00:00:00)to a file as variable $mac_address - And on the content of the data find a specific 'keyword' and save it to a file as $found_word (optional) send a txt file back with ussp-push to $mac_address with "I received your file with $found_word in it" Regards, P