use FindBin;
my $abspath = "$FindBin::Bin/produce_items.txt";