ex.pl

#!/usr/bin/perl
use warnings;
use strict;

use Net::Twitter::Lite;
use Data::Dumper;

my $nt = Net::Twitter::Lite->new(
    consumer_key    => 'YOUR KEY',
    consumer_secret => 'YOUR KEY SECRET',
    access_token => 'YOUR TOKEN',
    access_secret => 'YOUR TOKEN SECRET',
);

my $status = $nt->verify_credentials;
print Dumper $status;