$ perl -E 'say 01130'
600