[script perl] twitter flood [ with flooding mention / dm ]

[ persiapan di pc ]
[1] install dulu perlnya
[2] siapin koneksi stabil semi dewa
[3] dounload dan install modul nya dulu : 

 cpan -i Net::Twitter 

[persiapan aplikasi]
[1] bikin aplikasinya di dev.twitter.com
[2] masukin cs,ck.ats,at nya di tempat yg di sediakan

#!/usr/bin/perl -w

# copyleft 2012 - [R]esearch [N] [D]evelopment [C]enter
# use for purpose and educational only

use strict;
use Net::Twitter;

$SIG{INT} = \&interrupt;

sub interrupt {
    print "\nabort bay user, program batal!\n";
exit (0);
}

my $nt = Net::Twitter->new(
traits             => [qw/API::REST OAuth/],
consumer_key        => "PUT HERE",
consumer_secret     => "PUT HERE",
access_token         => "PUT HERE",
access_token_secret     => "PUT HERE");

HERE:
print "
----------------------------------------------
Program ini adalah program khusus pria dewasa
gunakan progam untuk memenuhi emosi seseorang
----------------------------------------------
pilih salah satu menu di bawah ini
----------------------------------------------
1. flood timeline
2. flood direct message
3. exit\n";

print "pilihlah menu sesuai dengan keinginan anda: ";
chomp (my $choice=<>);

if ($choice eq 1){
print "ketik kata-kata mutiyara : ";
chomp (my $update=<>);

print "banyak nyo tweet : pake @USERNAME kalo mau mensyen";
chomp (my $tweet=<>);

print "interpal waktu (min: 2 sec) : ";
chomp (my $interval=<>);

my $total = $tweet;

while ($tweet > 0) {
    my $flood   = "($tweet) $update";
    my $execute = $nt->update($flood) or die "OH MAY GOSH NGERORR MAS BRO :(";
    print "$flood\n";
    sleep $interval;
    $tweet=$tweet-1;
    }
}

elsif ($choice eq 2) {
print "type user (dafuq! yu mus bi pollowed bai target) : ";
chomp (my $receiver=<STDIN>);

print "type message : ";
chomp (my $msg=<STDIN>);

print "number of tweet: ";
chomp (my $tweet=<STDIN>);

print "interval per second (min: 2 sec) : ";
chomp (my $interval=<>);

my $total = $tweet;

while ($tweet > 0) {
    my $flood = "($tweet/$total) $msg"; 
    $nt->new_direct_message({user=>$receiver,text=>$flood}) or die "yu ken't sen direk messeg, cek yu polower!";
    print "$flood\n";
    sleep $interval;
    $tweet=$tweet-1;
    }
}
elsif ($choice eq 3){
print "goodbye :)\n";
exit;
}

else {
goto HERE;
}

SCRIPT INI HANYA UNTUK PEMBELAJARAN SEMATA, JIKA ADA PIHAK YANG KERUGIAN TIDAK BERTANGGUNG JAWAB
/!\ MOHON DI GUNAKAN SEBIJAK MUNGKIN