#!/usr/bin/perl -w for (0..255) { print "$_: "; eval "print -$_.0.0.1;"; print "\n"; }