#!/usr/bin/perl
# updated for 3.02000
use Net::Twitter;

my ($username,$password) = @ARGV;

my $twit = Net::Twitter->new(username=>$username, password=>$password,
    traits   => [qw/API::REST/],
);
my $results = undef;
do {
    $results = $twit->user_timeline({count=>200});
    if ($results && @{$results}) {
        foreach my $tweet ( @{ $results } ) {
            warn "Destroy ".$tweet->{id};
            $twit->destroy_status($tweet);
            sleep 1;
        }
    } else {
        $results = undef;
    }
    # not really sure how to end this
    # what might happen is once you hit the end
    # you might just hit twitter hard. so once everything is deleted
    # it stays that way
} while ($results);