package P50Tools::Packs::RandonIp;
use common::sense;
{
no strict "vars";
$VERSION = '0.1';
}
#create random ip
sub new {
my $ip = join (".", map int rand (256), 1..4);
return $ip;
}
1;
=head1
For more information go to L<P50Tools>.
=cut