#!/usr/bin/perl

use strict;
use warnings;
use Time::Local;
use XML::DOM;
use Net::Twitter;
use Data::Dumper;
use CGI;

my $query = new CGI;

print STDOUT $query->header;

my $usename="myname";
my $pwd="mypwd";
my $twitterID="myname";

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

my $results = $nt->show_user($twitterID);
#print Dumper $results;


foreach my $user (@{ $results }) {
    my $id =  $user->{id};
    my $name = $user->{name};
    print STDOUT $id."   ".$name."<br>";
}

print STDOUT $query->end_html;