my $from_file = sub {
    my ($name, $val) = @_;
    open my $fh, "<$val" or die "can\'t open file \'$val\'";
    local $/ = undef;
    $opt->{$name} = <$fh>;
    close($fh);
};