my $file = <STDIN>;
chomp($file);
$file ||= "somelist";

##</code><code>##

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