Select Code to Download

#!/usr/bin/perl -l
$o=1;{(grep!($o%$_),2..$o++)||print$o;redo}

#!/usr/bin/perl -l
$o=1;{grep!($o%$_),2..$o++or print$o;redo}