perl -i.bak -pe 's/\r?//g' scriptname.pl