in reply to Upper / Lower case extensions

just an idea
elsif (!(($ARGV[1]) && ((-f "$basepath$ARGV[0]/$ARGV[1].dat") || (-f "$basepath$ARGV[0]/$ARGV[1].DAT")))) { &listtoday;
perhaps ...

----
NaSe
:x