Select Code to Download

@decoded = decode_json($result);

#!/bin/perl

...
}

main();

#!/bin/python3

...

if __name__ == '__main__':
    main()

time $(for i in {1..100}; do ./move_to_next.pl> /dev/null; done;)

...
real    0m1.852s
user    0m1.516s
sys     0m0.323s

time ./move_to_next.pl > /dev/null

...
real    0m0.099s
user    0m0.078s
sys     0m0.018s