use warnings;
use strict;
use Time::Piece;
use File::Glob ':bsd_glob';

my $today = localtime->strftime('%Y%m%d');
my $filename = glob('electric_inventory_WE_'.$today.'*.dat');