Number of lines to post a twit with Perl

this many:

#!/usr/bin/perl
 
use Net::Twitter; 
 
    my $nt = Net::Twitter->new(
        traits        => [qw/OAuth API::REST/],
        consumer_key        => 'xxxx', 
        consumer_secret     => 'xxxx',
        access_token        => 'xxxx',
        access_token_secret => 'xxxx',
    );
  
  my $result = $nt->update("uh");