#!/usr/bin/perl
use Net::Twitter;

my $user = 'bieberweaksauce';
my $password = 'password';


my $nt = Net::Twitter->new(
    traits   => [qw/API::REST/],
    username => $user,
   password => $password
);

my $a = chr( int( rand(96)+33 ) );
my $b = chr( int( rand(96)+33 ) );
my $c = chr( int( rand(96)+33 ) );
my $status = '@justinbieber no one gives a fuck #' . $a . $b . $c . ' ';

my $result = $nt->update($status);