Help for this page

Select Code to Download


  1. or download this
    new_reg { 
my ($domain) = @_;
...
open (REGOUT, ">$outfile") or warn "couldnt write $outfile: $!\n";
print REGOUT "$result\n";
close REGOUT;
  2. or download this
    my $s = new IO::Socket:SSL("$registrar:https") or die "Couldn't connec
+t: err". &IO::Socket::SSL::errstr();
  3. or download this
    $state{'username'} = $username;
$state{'password'}  = $password;