BEGIN {
	use Exporter;
	my ($VERSION,@ISA, @EXPORT_OK, %EXPORT_TAGS);
	@ISA = qw(Exporter);
	%EXPORT_TAGS = ();
	@EXPORT_OK = qw(&IPGrab);
	$VERSION = 0.02;
}

sub IPGrab
{
  print "\nfoo";	
}