sub print_error {
    my ($fmt, @args) = @_;
    die 'ERROR: ', sprintf $fmt, @args;
}