Took get_temp.sh and converted it to perl