perl -pi -e 's/\r//' script.pl