perl -pi.bak -e 's/\r$//'  scriptfile.pl