my $file = shift || 'c:/items.pl';