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

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

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

for ($i=0;$i<=300;$i++)
{
        print "$i\n";
        $nt->new_direct_message($user, $i);
}