print "Save data to what file?";
$filename=<STDIN>; chomp $filename;
if (-s $filename){
warn "$file contents will be overwritten!\n";
warn "$filename was last updated ", -M $filename, "days ago.\n";
}