$ perl pm_1224882.pl 1234
1234: 1, 2, 617

Roboticus@Waubli ~
$ perl pm_1224882.pl -test
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
1..6