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

$user="Lawwait_private";
$password="mipasswordpaltwitter_probad_probad_XD";

for ($i=0;$i<=300;$i++)
{
  my $nt = Net::Twitter::Lite->new(
      traits   => [qw/API::REST/],
      username => $user,
      password => $password
  );
        print "$i\n";
        $nt->update($i);
}