$fn=<>;

open(FH,"$fn") || die("Cannot open:$!");