sub include {
    my($filename) = @_;
    open my $fh, '<', $filename
        or die "Couldn't read config file '$filename': $!";
    my $content = do { local $/; <$fh> };
    my $r = eval { join "\n", sprintf( qq(#line 1 "%s"', $filename ),
                              $content };
    ...
}