BOT Auto Register

#!/usr/bin/perl

use strict;
use WWW::Mechanize;
use String::Random;
use Data::Dumper;

our $mech = WWW::Mechanize->new;
my $foo = new String::Random;
my $fullname = $foo->randpattern("Cccccc") ." ". $foo->randpattern("Cccccc");
my $username = $fullname;
$username =~ s/\s+//;
$username = lc $username;
my $email = $username.'@yahoo.com';
my $password = $foo->randpattern("nnnnnnnn");
my $url = "https://www.foocet.com/signup?r=djenggoten";
print "[+] Loading Page...\n";
$mech->get($url);
checking("Page Loaded");
print "[+] Trying Create New User\n";
$mech->submit_form
(
    form_name => 'signupform',
    fields =>
    {
        fullname => $fullname,
        username => $username,
        email => $email,
        password => $password,
    }
);
checking("Create New User");
open FH, '>> ref.txt' or die $!;
print FH $fullname.":".$username.":".$email.":".$password."\n";
close FH;

sub checking
{
    my ($str) = @_;
    if ($mech->success())
    {
        print "[+] $str Success\n";
    }
    else
    {
        die "[-] $str Fail\n";
    }
}