my $file = ; chomp($file); $file = "somelist" if not length $file;