#!/usr/bin/perl
use strict;
use warnings;
use LJ::Simple;

my $lj = new LJ::Simple( { user => 'neoon', pass => 'ххххх' } );
(defined $lj)
    || die "$0: Failed to log into LiveJournal: $LJ::Simple::error\n";

while ( 1 ) {
        my %Entries=();
        (defined $lj->GetEntries(\%Entries,undef,"one",-1)) ||
                die "$0: Failed to get entries - $LJ::Simple::error\n";

        foreach ( values %Entries ) {
                my $f;
                open $f, ">posts/" . $_->{'__timet'} . ".txt";
                print $f $_->{'event'};
                close $f;
                $lj->DeleteEntry($_->{'__itemid'});
                print "deleted " . $_->{'__itemid'} . " date:". ( scalar localtime($_->{'__timet'}) ),"\n";
        }
}