1.1 --- a/suo-pelmen-record.pl	Wed Oct 24 11:40:23 2012 +0400
     1.2 +++ b/suo-pelmen-record.pl	Wed Oct 24 11:54:20 2012 +0400
     1.3 @@ -5,13 +5,13 @@
     1.4  # This program may be used under Apache License 2.0.
     1.5   
     1.6  use strict;
     1.7 -use DateTime;
     1.8  use LWP::UserAgent;
     1.9 +use Time::localtime;
    1.10  
    1.11  $ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
    1.12  
    1.13 -my $date = DateTime->now;
    1.14 -$date->set_time_zone('Europe/Moscow');
    1.15 +my $tm = localtime;
    1.16 +my $date = sprintf("%04d-%02d-%02d %02d:%02d:%02d", $tm->year + 1900, $tm->mon + 1, $tm->mday, $tm->hour, $tm->min, $tm->sec);
    1.17  
    1.18  # Create a user agent object
    1.19  my $ua = LWP::UserAgent->new;