$fn=<>;
open(FH, "$fn") || die("Can't open:$!");