Select Code to Download

#!/usr/bin/perl -w

...
    }
    \%s;
}

1         1
2         4
...
1001      1002001
1111      1234321
2002      4008004