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