my $ferweb_csv = 'report_62836_1026_Aktivni_studenti.csv';
my $dt = DateTime->now()->add( years => 1 );
$dt->set( month => 10, day => 31 ); # next year, 31.10.
-my $new_dateexpiry = $dt->ymd;
+my $new_dateexpiry = $ARGV[0] || $dt->ymd;
warn "# new_dateexpiry: $new_dateexpiry\n";