C:\>perl -e "print '1,000,000' + 1000"
1001
C:\>